1400
Is it possible to define my values for sorting
with thisform.G2antt1
	.Columns.Add("C1").SortType = 6
	.Columns.Add("C2")
	with .Items
		h = .AddItem("Cell 1")
		.DefaultItem = h
		.CellData(0,0) = "3.your extra data"
		.DefaultItem = h
		.CellValue(0,1) = "SortValue=3"
		h = .AddItem("Cell 1.1")
		.DefaultItem = h
		.CellData(0,0) = "1.your extra data"
		.DefaultItem = h
		.CellValue(0,1) = " SortValue=1"
		h = .AddItem("Cell 1.2")
		.DefaultItem = h
		.CellData(0,0) = "5.your extra data"
		.DefaultItem = h
		.CellValue(0,1) = " SortValue=5"
		h = .AddItem("Cell 1.3")
		.DefaultItem = h
		.CellData(0,0) = "2.your extra data"
		.DefaultItem = h
		.CellValue(0,1) = " SortValue=2"
	endwith
endwith
1399
I have multiple dropdown lists, that are depending on each other, that means that the values in dropdown list no. 2 is based on the users selection in dropdown list no 1. How can I do this
*** EditOpen event - Occurs when the edit operation starts. ***
LPARAMETERS nop
	with thisform.G2antt1
		with .Items
			v = .CellValue(.FocusItem,0)
			c = .CellCaption(.FocusItem,0)
		endwith
		with .Columns.Item(1).Editor
			.ClearItems
			.AddItem(v,c)
		endwith
	endwith

with thisform.G2antt1
	.BeginUpdate
	.Chart.PaneWidth(1) = 0
	with .Columns.Add("DropDownList")
		with .Editor
			.EditType = 3
			.AddItem(1,"First")
			.AddItem(2,"Second")
			.AddItem(3,"Third")
		endwith
	endwith
	.DrawGridLines = -1
	.Columns.Add("DropDownList-Related").Editor.EditType = 3
	with .Items
		.DefaultItem = .AddItem(1)
		.CellValue(0,1) = -1
		.DefaultItem = .AddItem(2)
		.CellValue(0,1) = -1
		.DefaultItem = .AddItem(3)
		.CellValue(0,1) = -1
		.LockedItemCount(2) = 1
		h = .LockedItem(2,0)
		.DefaultItem = h
		.ItemDivider(0) = 0
		.DefaultItem = h
		.ItemDividerLineAlignment(0) = 2
		.DefaultItem = h
		.CellEditorVisible(0,0) = .F.
		.DefaultItem = h
		.CellSingleLine(0,0) = .F.
		.DefaultItem = h
		.CellValueFormat(0,0) = 1
		.DefaultItem = h
		var_s = "The drop down editor in the second column is filled during the <b>EditOpen event</b>, and the values are based on the selection "
		var_s = var_s + "on the first column."
		.CellValue(0,0) = var_s
	endwith
	.EndUpdate
endwith
1398
Is it possible background color displayed when the mouse passes over an item
with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Def")
	.HotBackColor = RGB(0,0,128)
	.HotForeColor = RGB(255,255,255)
	with .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	endwith
	.EndUpdate
endwith
1397
Is it possible to magnify a specified date and apply a different background color

with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Tasks")
	with .Chart
		.DrawLevelSeparator = .F.
		.PaneWidth(0) = 64
		.FirstVisibleDate = {^2011-11-23}
		.LevelCount = 3
		.FirstWeekDay = 1
		.AllowInsideZoom = .T.
		.InsideZooms.Add({^2011-11-29}).AllowCustomFormat = .T.
		with .InsideZooms.Item({^2011-11-29})
			.Width = 68
			.CustomFormat.BackColorChart = RGB(224,224,224)
		endwith
	endwith
	with .Items
		hA = .AddItem("Task A")
		.AddBar(hA,"Task",{^2011-11-24},{^2011-11-26},"A")
		hB = .AddItem("Task B")
		.AddBar(hB,"Task",{^2011-11-28},{^2011-12-1},"B")
		.AddLink("LinkAB",hA,"A",hB,"B")
		.Link("LinkAB",9) = 2
		.Link("LinkAB",10) = 2
	endwith
	.EndUpdate
endwith
1396
Could you please tell me how to add multiple bars to the one line

with thisform.G2antt1
	.BeginUpdate
	.Chart.FirstVisibleDate = {^2002-1-1}
	.Columns.Add("Task")
	with .Items
		h = .AddItem("Task")
		.AddBar(h,"Task",{^2002-1-2},{^2002-1-4},"A")
		.AddBar(h,"Task",{^2002-1-6},{^2002-1-10},"B")
		.DefaultItem = h
		.ItemBar(0,"A",33) = 255
		.AddLink("AB",h,"A",h,"B")
	endwith
	.EndUpdate
endwith
1395
My development environment does not have any Object,GetOcx,DefaultDispatch,GetControlUnknown,nativeObject, ... property, is there any alternative I can pass the component to PrintExt so I can get printed
with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",{^2001-1-2},{^2001-1-4},"K1")
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",{^2001-1-5},{^2001-1-7},"K2")
		.AddLink("L1",h1,"K1",h2,"K2")
		.Link("L1",6) = 0
	endwith
	.EndUpdate
	.Template = "Dim p;p = CreateObject(`Exontrol.Print`);p.PrintExt = Me;p.AutoRelease = False;p.Preview();"
endwith
1394
My development environment does not have any Object,GetOcx,DefaultDispatch,GetControlUnknown,nativeObject, ... property, is there any alternative I can pass the component to PrintExt so I can get printed
with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",{^2001-1-2},{^2001-1-4},"K1")
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",{^2001-1-5},{^2001-1-7},"K2")
		.AddLink("L1",h1,"K1",h2,"K2")
		.Link("L1",6) = 0
	endwith
	.EndUpdate
	with CreateObject("Exontrol.Print")
		.PrintExt = thisform.G2antt1.ExecuteTemplate("me").Object
		.Preview
	endwith
endwith
1393
Is it possible to display the bar's captions or labels with a different font/size

with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Task")
	.DefaultItemHeight = 24
	with .Chart
		.PaneWidth(0) = 64
		.FirstVisibleDate = {^2001-1-1}
		.LevelCount = 2
	endwith
	with .Items
		h = .AddItem("Default")
		.AddBar(h,"Task",{^2001-1-2},{^2001-1-6},"","This is a the control's font")
		.DefaultItem = h
		.ItemBar(0,"",4) = 18
		h = .AddItem("Smaller")
		.AddBar(h,"Task",{^2001-1-2},{^2001-1-6},"","<font ;5>This is a the control's font with a smaller size")
		.DefaultItem = h
		.ItemBar(0,"",4) = 18
		h = .AddItem("Larger")
		.AddBar(h,"Task",{^2001-1-2},{^2001-1-6},"","<font ;15>This is a the control's font with a larger size")
		.DefaultItem = h
		.ItemBar(0,"",4) = 18
		h = .AddItem("Tahoma 1")
		.AddBar(h,"Task",{^2001-1-2},{^2001-1-6},"","<font Tahoma>This is using a Tahoma font")
		.DefaultItem = h
		.ItemBar(0,"",4) = 18
		h = .AddItem("Tahoma 2")
		.AddBar(h,"Task",{^2001-1-2},{^2001-1-6},"","<font Tahoma;14>This is using a <b>Tahoma</b> font with a different size")
		.DefaultItem = h
		.ItemBar(0,"",4) = 18
	endwith
	.EndUpdate
endwith
1392
How can I apply the same ConditionalFormat on more than 1(one) column (multiple columns and not on item)
with thisform.G2antt1
	.BeginUpdate
	with .ConditionalFormats.Add("1","K1")
		.BackColor = RGB(255,0,0)
		.ApplyTo = 1 && 0x1
	endwith
	with .ConditionalFormats.Add("1","K2")
		.BackColor = RGB(255,0,0)
		.ApplyTo = 2 && 0x2
	endwith
	.MarkSearchColumn = .F.
	.DrawGridLines = -2
	with .Columns
		.Add("Column 1")
		.Add("Column 2")
		.Add("Column 3")
	endwith
	with .Items
		.AddItem()
		.AddItem()
		.AddItem()
	endwith
	.EndUpdate
endwith
1391
Is it possible to change the height for all items at once
with thisform.G2antt1
	.BeginUpdate
	.LinesAtRoot = -1
	.Columns.Add("Items")
	with .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Null,"Child 1")
		.InsertItem(h,Null,"Child 2")
		h = .AddItem("Root 2")
		.InsertItem(h,Null,"Child 1")
		.InsertItem(h,Null,"Child 2")
		.ExpandItem(0) = .T.
	endwith
	.EndUpdate
	.DefaultItemHeight = 12
	.Items.ItemHeight(0) = 12
endwith
1390
Is it possible to include the weekday when displaying the date

with thisform.G2antt1
	.BeginUpdate
	.MarkSearchColumn = .F.
	with .Columns
		.Add("Tasks")
		with .Add("Start")
			.Def(18) = 1
			.Def(17) = 1
			.FormatColumn = "value + '<font ;6> '  + (weekday(date(value)) case(0:'Sun';1:'Mon';2:'Tue';3:'Wed';4:'Thu';5:'Fri';6:'Sat'))"
		endwith
		with .Add("End")
			.Def(18) = 2
			.Def(17) = 1
			.FormatColumn = "value + '<font ;6> '  + (weekday(date(value)) case(0:'Sun';1:'Mon';2:'Tue';3:'Wed';4:'Thu';5:'Fri';6:'Sat'))"
		endwith
	endwith
	with .Chart
		.FirstVisibleDate = {^2006-9-20}
		.AllowLinkBars = .F.
		.AllowCreateBar = 0
		.LevelCount = 2
		.PaneWidth(0) = 256
		.NonworkingDays = 0
		.FirstWeekDay = 1
	endwith
	with .Items
		.AllowCellValueToItemBar = .T.
		.AddBar(.AddItem("Task 1"),"Task",{^2006-9-21},{^2006-9-24})
		.AddBar(.AddItem("Task 2"),"Task",{^2006-9-22},{^2006-9-25})
		.AddBar(.AddItem("Task 3"),"Task",{^2006-9-23},{^2006-9-26})
	endwith
	.EndUpdate
endwith
1389
I need my chart to display the end date with on day less. How can I do this (Method 1)

with thisform.G2antt1
	.BeginUpdate
	.MarkSearchColumn = .F.
	with .Columns
		.Add("Tasks")
		.Add("Start").Def(18) = 1
		with .Add("End")
			.Def(18) = 2
			.FormatColumn = "shortdate(date(value)-1)"
		endwith
	endwith
	with .Chart
		.FirstVisibleDate = {^2006-9-20}
		.AllowLinkBars = .F.
		.AllowCreateBar = 0
		.LevelCount = 2
		.PaneWidth(0) = 196
		.NonworkingDays = 0
	endwith
	with .Items
		.AllowCellValueToItemBar = .T.
		.AddBar(.AddItem("Task 1"),"Task",{^2006-9-21},{^2006-9-24})
		.AddBar(.AddItem("Task 2"),"Task",{^2006-9-22},{^2006-9-25})
		.AddBar(.AddItem("Task 3"),"Task",{^2006-9-23},{^2006-9-26})
	endwith
	.EndUpdate
endwith
1388
Is it possible to display my custom time-units

with thisform.G2antt1
	with .Chart
		.PaneWidth(0) = 0
		.LevelCount = 2
		.FirstVisibleDate = 0
		.NonworkingDays = 0
		with .Level(0)
			.Unit = 4096
			.Count = 16
			.Alignment = 1
			.Label = "<%i%>"
			.FormatLabel = "'Half ' + (1 + (value/16) mod 2)"
		endwith
		with .Level(1)
			.Label = "<%i%>"
			.FormatLabel = "1 + value mod 16"
			.ReplaceLabel(2) = "<font ;10><B>Y"
		endwith
		.AdjustLevelsToBase = .T.
		.ScrollRange(0) = 0
		.ScrollRange(1) = 31
	endwith
endwith
1387
Is it possible to add new records and see them in the control's view using the DataSource

*** AddItem event - Occurs after a new Item has been inserted to Items collection. ***
LPARAMETERS Item
	with thisform.G2antt1
		with .Items
			.DefaultItem = Item
			.SelectItem(0) = .T.
			.EnsureVisibleItem(Item)
		endwith
		.Edit(0)
	endwith

*** ButtonClick event - Occurs when user clicks on the cell's button. ***
LPARAMETERS Item,ColIndex,Key
	with thisform.G2antt1
		.DataSource.AddNew()
	endwith

with thisform.G2antt1
	rs = CreateObject("ADODB.Recordset")
	with rs.Fields
		.Append("Task",8)
		.Append("Start",7)
		.Append("End",7)
	endwith
	rs.Open()
	.DrawGridLines = -2
	.DetectAddNew = .T.
	.DetectDelete = .T.
	.DataSource = rs
	with .Items
		.LockedItemCount(0) = 1
		h = .LockedItem(0,0)
		.DefaultItem = h
		.ItemDivider(0) = 0
		.DefaultItem = h
		.ItemHeight(0) = 22
		.DefaultItem = h
		.CellValue(0,0) = "AddNew"
		.DefaultItem = h
		.CellHasButton(0,0) = .T.
		.DefaultItem = h
		.CellHAlignment(0,0) = 1
	endwith
endwith
1386
How can I limit the bars to scrolling range only
*** CreateBar event - Fired when the user creates a new bar. ***
LPARAMETERS Item,DateStart,DateEnd
	with thisform.G2antt1
		with .Items
			.DefaultItem = Item
			.ItemBar(0,"newbar",22) = thisform.G2antt1.Chart.ScrollRange(2)
			.DefaultItem = Item
			.ItemBar(0,"newbar",25) = thisform.G2antt1.Chart.ScrollRange(3)
		endwith
	endwith

with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Task")
	with .Chart
		.LevelCount = 2
		.PaneWidth(0) = 56
		.ScrollRange(0) = {^2001-1-1}
		.ScrollRange(1) = {^2001-1-15}
		.FirstVisibleDate = {^2001-1-12}
		.AllowCreateBar = 1
	endwith
	with .Items
		.AddItem("Task 1")
		.AddItem("Task 2")
		.AddItem("Task 3")
	endwith
	.EndUpdate
endwith
1385
How do I get the handle of the last added item
with thisform.G2antt1
	.Columns.Add("Def")
	with .Items
		.AddItem(1)
		.AddItem(2)
		DEBUGOUT( .ItemByIndex(.ItemCount) )
	endwith
endwith
1384
How can I set the charts date format to any other international Format then the US version. I would need "dd.mmm.yyyy" instead of "mmm.d.'yy"
with thisform.G2antt1
	with .Chart
		.PaneWidth(0) = 0
		.LevelCount = 2
		with .Level(0)
			.Label = "<%dd%>.<%mmm%>.<%yyyy%>"
			.Unit = 256
			.Alignment = 17 && AlignmentEnum.exHOutside Or AlignmentEnum.CenterAlignment
		endwith
	endwith
endwith
1383
Is it possible to define the bar colors, and have the cumulative histogram showing the same colors

with thisform.G2antt1
	.BeginUpdate
	.SingleSel = .F.
	with .Chart
		.LevelCount = 2
		.AllowLinkBars = .F.
		.DrawGridLines = -1
		.FirstVisibleDate = {^2000-12-24}
		.HistogramVisible = .T.
		.HistogramHeight = 64
		.PaneWidth(0) = 128
		.HistogramView = 1298 && HistogramViewEnum.exHistogramNoGrouping Or HistogramViewEnum.exHistogramLeafItems Or HistogramViewEnum.exHistogramUnlockedItems Or HistogramViewEnum.exHistogramSelectedItems
		with .Bars.Item("Task")
			.HistogramType = 256
			.HistogramItems = 6
			.HistogramPattern = .Pattern && .Pattern
			.HistogramCumulativeOriginalColorBars = 1
			.OverlaidType = 1
		endwith
	endwith
	.Columns.Add("Column")
	with .Items
		h = .AddItem("Project")
		.DefaultItem = h
		.ItemBold(0) = .T.
		.DefaultItem = h
		.SelectableItem(0) = .F.
		h1 = .InsertItem(h,Null,"Item 1")
		.AddBar(h1,"Task",{^2001-1-2},{^2001-1-4})
		h1 = .InsertItem(h,Null,"Item 2")
		.AddBar(h1,"Task",{^2001-1-3},{^2001-1-5})
		h1 = .InsertItem(h,Null,"Item 3")
		.AddBar(h1,"Task",{^2001-1-4},{^2001-1-6})
		.AddBar(h1,"Task",{^2001-1-1},{^2001-1-3},"green")
		.DefaultItem = h1
		.ItemBar(0,"green",33) = 65280
		.AddBar(h1,"Task",{^2001-1-8},{^2001-1-10},"red")
		.DefaultItem = h1
		.ItemBar(0,"red",33) = 255
		.DefaultItem = h
		.ExpandItem(0) = .T.
		.SelectAll
	endwith
	.EndUpdate
endwith
1382
How can I hide the values shown in the legend when cumulative histogram is displayed

with thisform.G2antt1
	.BeginUpdate
	with .Chart
		.FirstVisibleDate = {^2001-1-1}
		.HistogramVisible = .T.
		.HistogramHeight = 64
		.PaneWidth(0) = 128
		.HistogramView = 1300 && HistogramViewEnum.exHistogramNoGrouping Or HistogramViewEnum.exHistogramLeafItems Or HistogramViewEnum.exHistogramUnlockedItems Or HistogramViewEnum.exHistogramCheckedItems
		with .Bars.Item("Task")
			.HistogramPattern = 1
			.HistogramType = 256
			.HistogramItems = 6
			.HistogramRulerLinesColor = RGB(128,0,0)
			.HistogramBorderColor = RGB(1,0,0)
			.HistogramCumulativeShowLegend = 65535
			.HistogramCumulativeOriginalColorBars = .F.
		endwith
	endwith
	with .Columns.Add("Column")
		.Def(0) = .T.
		.PartialCheck = .T.
	endwith
	with .Items
		h = .AddItem("Project 1")
		.AddBar(.InsertItem(h,Null,"Item 1"),"Task",{^2001-1-2},{^2001-1-4})
		.AddBar(.InsertItem(h,Null,"Item 2"),"Task",{^2001-1-3},{^2001-1-5})
		.AddBar(.InsertItem(h,Null,"Item 3"),"Task",{^2001-1-4},{^2001-1-6})
		.AddBar(.InsertItem(h,Null,"Item 4"),"Task",{^2001-1-2},{^2001-1-8})
		.DefaultItem = .ItemByIndex(1)
		.CellState(0,0) = 1
		.DefaultItem = h
		.ExpandItem(0) = .T.
	endwith
	.EndUpdate
endwith
1381
Is it possible to define the bar colors, and have the cumulative histogram showing the same colors

with thisform.G2antt1
	.BeginUpdate
	.SelBackColor = .BackColor
	.SelForeColor = .ForeColor
	with .Chart
		.FirstVisibleDate = {^2001-1-1}
		.HistogramVisible = .T.
		.HistogramHeight = 64
		.PaneWidth(0) = 128
		.HistogramView = 1300 && HistogramViewEnum.exHistogramNoGrouping Or HistogramViewEnum.exHistogramLeafItems Or HistogramViewEnum.exHistogramUnlockedItems Or HistogramViewEnum.exHistogramCheckedItems
		with .Bars.Item("Task")
			.Color = RGB(128,128,128)
			.HistogramType = 256
			.HistogramItems = 6
			.HistogramRulerLinesColor = RGB(128,0,0)
			.HistogramBorderColor = RGB(1,0,0)
			.HistogramCumulativeColors = 2
			.HistogramCumulativeColor(0) = RGB(0,0,255)
			.HistogramCumulativeColor(1) = RGB(0,0,255)
			.HistogramCumulativeOriginalColorBars = .F.
			.HistogramPattern = .Pattern && .Pattern
			.HistogramCumulativeShowLegend = 65535
		endwith
	endwith
	with .Columns.Add("Column")
		.Def(0) = .T.
		.PartialCheck = .T.
	endwith
	with .Items
		h = .AddItem("Project 1")
		.AddBar(.InsertItem(h,Null,"Item 1"),"Task",{^2001-1-2},{^2001-1-4})
		.AddBar(.InsertItem(h,Null,"Item 2"),"Task",{^2001-1-3},{^2001-1-5})
		.AddBar(.InsertItem(h,Null,"Item 3"),"Task",{^2001-1-4},{^2001-1-6})
		.AddBar(.InsertItem(h,Null,"Item 4"),"Task",{^2001-1-2},{^2001-1-8})
		.DefaultItem = .ItemByIndex(1)
		.CellState(0,0) = 1
		.DefaultItem = h
		.ExpandItem(0) = .T.
	endwith
	.EndUpdate
endwith
1380
Is it possible to show the non-working pattern over the bars

with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Tasks")
	with .Chart
		.NonworkingDaysPattern = 6
		.NonworkingDaysColor = RGB(0,0,0)
		.PaneWidth(0) = 40
		.FirstVisibleDate = {^2005-6-20}
		.HistogramVisible = .T.
		.HistogramHeight = 64
		.HistogramView = 2160 && HistogramViewEnum.exHistogramBackground Or HistogramViewEnum.exHistogramAllItems
		.LevelCount = 2
		with .Bars
			with .Add("Empty")
				.Color = RGB(0,0,0)
				.Pattern = 5
				.Shape = 17
			endwith
			with .Add("Task:Empty")
				.Shortcut = "Task"
				.HistogramItems = -5
				.HistogramCriticalValue = 3
				.HistogramType = 0
				.HistogramPattern = .Pattern && .Pattern
				.Def(3) = "<%=%258%> working days bar"
				.Def(4) = 18
				.Def(20) = .T.
			endwith
		endwith
		.UnitWidthNonworking = -12
		.Level(1).FormatLabel = "weekday(dvalue) in (0,6) ? `` : value"
	endwith
	with .Items
		.AddBar(.AddItem("Task A"),"Task",{^2005-6-23},{^2005-6-29},"")
		.AddBar(.AddItem("Task B"),"Task",{^2005-6-24},{^2005-6-28},"")
	endwith
	.EndUpdate
endwith
1379
I'm showing values from a ado recordset from sql 2005. When I try to edit a column with integers, it just skips back to the original numbers after pressing enter..., why
*** AddItem event - Occurs after a new Item has been inserted to Items collection. ***
LPARAMETERS Item
	with thisform.G2antt1
		with .Items
			.AddBar(Item,"Task",.CellValue(Item,2),.CellValue(Item,4))
		endwith
	endwith

*** Error event - Fired when an internal error occurs. ***
LPARAMETERS Error,Description
	with thisform.G2antt1
		DEBUGOUT( Error )
		DEBUGOUT( Description )
	endwith

with thisform.G2antt1
	.BeginUpdate
	with .Chart
		.FirstVisibleDate = {^1994-8-3}
		.PaneWidth(0) = 256
		.LevelCount = 2
		.UnitScale = 4096
		.FirstWeekDay = 1
		.OverviewVisible = 2
	endwith
	.ColumnAutoResize = .F.
	.ContinueColumnScroll = .F.
	rs = CreateObject("ADOR.Recordset")
	with rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",1,1)
	endwith
	.DataSource = rs
	.Items.AllowCellValueToItemBar = .T.
	.Columns.Item(2).Def(18) = 1
	.Columns.Item(4).Def(18) = 2
	.EndUpdate
endwith
1378
Is it possible to reduce the non-working parts of the control

with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Tasks")
	with .Chart
		.PaneWidth(0) = 40
		.FirstVisibleDate = {^2005-6-20}
		.HistogramVisible = .T.
		.HistogramHeight = 64
		.HistogramView = 112
		.LevelCount = 2
		with .Bars.Item("Task")
			.HistogramType = 1
			.HistogramPattern = .Pattern && .Pattern
		endwith
		.UnitWidthNonworking = -8
		.Level(1).FormatLabel = "weekday(dvalue) in (0,6) ? `` : value"
	endwith
	with .Items
		h = .AddItem("Task A")
		.AddBar(h,"Task",{^2005-6-23},{^2005-6-29},"","4 working days bar")
		.DefaultItem = h
		.ItemBar(0,"",10) = .F.
		.DefaultItem = h
		.ItemBar(0,"",4) = 18
		.DefaultItem = h
		.ItemBar(0,"",21) = 4
		.DefaultItem = h
		.ItemBar(0,"",20) = .T.
		h = .AddItem("Task B")
		.AddBar(h,"Task",{^2005-6-28},{^2005-6-30},"","2 working days bar")
		.DefaultItem = h
		.ItemBar(0,"",10) = .F.
		.DefaultItem = h
		.ItemBar(0,"",4) = 18
		.DefaultItem = h
		.ItemBar(0,"",21) = 2
		.DefaultItem = h
		.ItemBar(0,"",20) = .T.
	endwith
	.EndUpdate
endwith
1377
I don't want to see the "schedule"/show "workload" in non-working days part of the histogram

with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Tasks")
	with .Chart
		.PaneWidth(0) = 40
		.FirstVisibleDate = {^2005-6-20}
		.HistogramVisible = .T.
		.HistogramHeight = 64
		.HistogramView = 112
		.LevelCount = 2
		with .Bars.Item("Task")
			.HistogramType = 1
			.HistogramPattern = .Pattern && .Pattern
		endwith
		.ShowNonworkingDates = .F.
		.ShowNonworkingUnits = .F.
	endwith
	with .Items
		h = .AddItem("Task A")
		.AddBar(h,"Task",{^2005-6-23},{^2005-6-29},"","4 working days bar")
		.DefaultItem = h
		.ItemBar(0,"",10) = .F.
		.DefaultItem = h
		.ItemBar(0,"",4) = 18
		.DefaultItem = h
		.ItemBar(0,"",21) = 4
		.DefaultItem = h
		.ItemBar(0,"",20) = .T.
		h = .AddItem("Task B")
		.AddBar(h,"Task",{^2005-6-28},{^2005-6-30},"","2 working days bar")
		.DefaultItem = h
		.ItemBar(0,"",10) = .F.
		.DefaultItem = h
		.ItemBar(0,"",4) = 18
		.DefaultItem = h
		.ItemBar(0,"",21) = 2
		.DefaultItem = h
		.ItemBar(0,"",20) = .T.
	endwith
	.EndUpdate
endwith
1376
The control shows, and handles non-working days PERFECT, but how is it possible to reflect this in the Histogram. I don't want to "schedule"/show "workload" in non-working days...

with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Tasks")
	with .Chart
		.PaneWidth(0) = 40
		.FirstVisibleDate = {^2005-6-20}
		.HistogramVisible = .T.
		.HistogramHeight = 64
		.HistogramView = 112
		.LevelCount = 2
		with .Bars.Item("Task")
			.HistogramType = 1
			.HistogramPattern = .Pattern && .Pattern
		endwith
	endwith
	with .Items
		h = .AddItem("Task A")
		.AddBar(h,"Task",{^2005-6-23},{^2005-6-29},"","4 working days bar")
		.DefaultItem = h
		.ItemBar(0,"",10) = .F.
		.DefaultItem = h
		.ItemBar(0,"",4) = 18
		.DefaultItem = h
		.ItemBar(0,"",21) = 4
		.DefaultItem = h
		.ItemBar(0,"",20) = .T.
		h = .AddItem("Task B")
		.AddBar(h,"Task",{^2005-6-28},{^2005-6-30},"","2 working days bar")
		.DefaultItem = h
		.ItemBar(0,"",10) = .F.
		.DefaultItem = h
		.ItemBar(0,"",4) = 18
		.DefaultItem = h
		.ItemBar(0,"",21) = 2
		.DefaultItem = h
		.ItemBar(0,"",20) = .T.
	endwith
	.EndUpdate
endwith
1375
When I do select the button in the overview-zoom I want the scaling to change accordingly. Can I set different scales per selected zoom level

*** OverviewZoom event - Occurs once the user selects a new time scale unit in the overview zoom area. ***
LPARAMETERS nop
	with thisform.G2antt1
		DEBUGOUT( .Chart.UnitScale )
	endwith

with thisform.G2antt1
	with .Chart
		.PaneWidth(0) = 0
		.LevelCount = 2
		.OverviewVisible = 2
		.AllowOverviewZoom = 1
		.Label(16777216) = ""
		.Label(0) = ""
	endwith
endwith
1374
How do I display Icons instead of text in the overview zoom area

with thisform.G2antt1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	with .Chart
		.OverviewVisible = 2
		.AllowOverviewZoom = 1
		.Label(16777216) = ""
		.Label(0) = ""
		DEBUGOUT( .OverviewZoomCaption )
		.OverviewZoomCaption = "Year|½Year|¼Year|Month|Third|<img>1</img>|Day|Hour|Min|Sec"
	endwith
endwith
1373
How do I get it to only display Min, Hour, Day, Week , Month, ie remove Sec and Year in the overview area
with thisform.G2antt1
	with .Chart
		.OverviewVisible = 2
		.AllowOverviewZoom = 1
		.Label(16777216) = ""
		.Label(0) = ""
	endwith
endwith
1372
Is it possible to show quarter hours markers

with thisform.G2antt1
	.BeginUpdate
	.GridLineColor = RGB(0,0,0)
	var_s = "gBFLBCJwBAEHhEJAEGg4BdMIQAAYAQGKIYBkAKBQAGaAoDDUNw5QwAAwjSKkEwsACEIrjKCRShyCYZRhGcTAFBMIhkGoSZKlCIRVDCKYJDbKACSFKkNQ7AabZBgOQJVg"
	var_s = var_s + "OKovThKcIybQAASJCKRY7nUIIJA+SoDSRAbqhYIgASnKqLJAkACIJJAaRjHQdJxGKKMQANBghCZseKhWgkKIJUxAdLTWAAMQuaCoZ5icRAca2fJ+XzfeBYDgmAYNQbDc"
	var_s = var_s + "JhHCMMwXDaJZBiGJ4dimI4rR7JIDzDJ8cxbEKTZ5meg5boGRZNTrMQA0fQ9MynK6vahfOi7DpuaZnWrcMb2fYNZwrGq0bxoW58BwmP5/XrkNa4XgcVgmAUBA"
	.VisualAppearance.Add(3,var_s)
	.HeaderHeight = 20
	with .Chart
		.FirstVisibleDate = {^2001-1-1}
		.PaneWidth(0) = 0
		.LevelCount = 2
		.UnitScale = 65536
		with .Level(0)
			.Alignment = 16
			.Label = "<%dddd%>, <%mmmm%> <b><%d%></b>, <%yyyy%>"
			.DrawTickLines = 2
		endwith
		with .Level(1)
			.Label = "<%hh%>:00"
			.BackColor = 0x3000000
			.DrawTickLines = 2
		endwith
		.DrawLevelSeparator = 2
		.UnitWidth = 64
		.ResizeUnitScale = 1048576
		.ResizeUnitCount = 15
	endwith
	.EndUpdate
endwith
1371
How can I ensure or always show the labels on the chart part, when scrolling the chart to left or right
with thisform.G2antt1
	.BeginUpdate
	with .Chart
		.FirstVisibleDate = {^2001-1-1}
		.PaneWidth(0) = 0
		.LevelCount = 2
		.UnitWidth = 48
		.UnitScale = 65536
		with .Level(0)
			.Alignment = 17 && AlignmentEnum.exHOutside Or AlignmentEnum.CenterAlignment
			.Label = "<%dddd%>, <%mmmm%> <b><%d%></b>, <%yyyy%>"
		endwith
		.Level(1).Label = "<%hh%>:00"
	endwith
	.EndUpdate
endwith
1370
I associate the Start and End columns with bars, but some of them are not shown. What am I doing wrong
with thisform.G2antt1
	.BeginUpdate
	.MarkSearchColumn = .F.
	.Items.AllowCellValueToItemBar = .T.
	with .Chart
		.LevelCount = 2
		.FirstVisibleDate = {^2000-12-25}
		.PaneWidth(0) = 128
	endwith
	with .Columns.Add("Start")
		.Def(18) = 1
		.Def(19) = "K1"
	endwith
	with .Columns.Add("End")
		.Def(18) = 2
		.Def(19) = "K1"
	endwith
	with .Items
		.AddBar(.AddItem(),"Task",{^2001-1-1},{^2001-1-5},"K1")
		.AddBar(.AddItem(),"Task",{^2001-1-2},{^2001-1-6},"K1")
		.AddBar(.AddItem(),"Task",{^2001-1-3},{^2001-1-7},"????","????")
	endwith
	.EndUpdate
endwith
1369
How can I implement OLE Drag and Drop operation
*** OLEStartDrag event - Occurs when the OLEDrag method is called. ***
LPARAMETERS Data,AllowedEffects
	*** Data.SetData("your data to drag")
	with thisform.G2antt1
		AllowedEffects = 2
	endwith

with thisform.G2antt1
	.BeginUpdate
	.Chart.PaneWidth(1) = 0
	.Columns.Add("Default")
	with .Items
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
		.AddItem("Item 4")
		.AddItem("Item 5")
	endwith
	.OLEDropMode = 1
	.EndUpdate
endwith
1368
I can not associate the bar's start and end properties with my start/end columns, only if the bar's key is empty or null. What can I do

*** ButtonClick event - Occurs when user clicks on the cell's button. ***
LPARAMETERS Item,ColIndex,Key
	with thisform.G2antt1
		.BeginUpdate
		with .Columns
			.Item("Tasks").Def(19) = "B"
			.Item("Start").Def(19) = "B"
			.Item("End").Def(19) = "B"
		endwith
		with .Items
			.DefaultItem = Item
			.CellValue(0,1) = "B"
			.ItemBar(0,"B",33) = 0
			.ItemBar(0,"A",33) = 16775408
		endwith
		.EndUpdate
	endwith

with thisform.G2antt1
	.BeginUpdate
	with .Columns
		with .Add("Tasks")
			.Width = 32
			.Def(18) = 3
			.Def(19) = "A"
		endwith
		with .Add("Start")
			.Def(18) = 1
			.Def(19) = "A"
			.Editor.EditType = 7
		endwith
		with .Add("End")
			.Def(18) = 2
			.Def(19) = "A"
			.Editor.EditType = 7
		endwith
	endwith
	with .Chart
		.FirstVisibleDate = {^2006-9-20}
		.AllowLinkBars = .T.
		.AllowCreateBar = 0
		.LevelCount = 2
		.PaneWidth(0) = 196
		with .Bars.Item("Task")
			.Pattern = 6
			.OverlaidType = 515 && OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or OverlaidBarsTypeEnum.exOverlaidBarsStack
			.Overlaid(256) = 80
		endwith
	endwith
	with .Items
		.LockedItemCount(0) = 1
		h = .LockedItem(0,0)
		.DefaultItem = h
		.CellValue(0,0) = "Select"
		.DefaultItem = h
		.CellHasButton(0,0) = .T.
		.DefaultItem = h
		.CellMerge(0,1) = 2
		.DefaultItem = h
		.CellValue(0,1) = "A"
		.CellEditor(h,1).EditType = 1
	endwith
	with .Items
		.AllowCellValueToItemBar = .T.
		h = .AddItem("Task 1")
		.AddBar(h,"Task",{^2006-9-21},{^2006-9-24},"A","A")
		.AddBar(h,"Task",{^2006-9-25},{^2006-9-28},"B","B")
		.DefaultItem = h
		.ItemBar(0,"B",33) = 16775408
		h = .AddItem("Task 2")
		.AddBar(h,"Task",{^2006-9-22},{^2006-9-25},"A","A")
		.AddBar(h,"Task",{^2006-9-26},{^2006-9-29},"B","B")
		.DefaultItem = h
		.ItemBar(0,"B",33) = 16775408
	endwith
	.EndUpdate
endwith
1367
How can I determine the order of the events
*** AddLink event - Occurs when the user links two bars using the mouse. ***
LPARAMETERS LinkKey
	with thisform.G2antt1
		DEBUGOUT( "AddLink" )
		DEBUGOUT( LinkKey )
	endwith

*** AfterExpandItem event - Fired after an item is expanded (collapsed). ***
LPARAMETERS Item
	with thisform.G2antt1
		DEBUGOUT( "AfterExpandItem" )
		DEBUGOUT( Item )
	endwith

*** AllowLink event - Notifies at runtime when a link between two bars is possible. ***
LPARAMETERS StartItem,StartBarKey,EndItem,EndBarKey,LinkKey,Cancel
	with thisform.G2antt1
		DEBUGOUT( "AllowLink" )
		DEBUGOUT( StartItem )
		DEBUGOUT( StartBarKey )
		DEBUGOUT( EndItem )
		DEBUGOUT( EndBarKey )
		DEBUGOUT( LinkKey )
	endwith

*** AnchorClick event - Occurs when an anchor element is clicked. ***
LPARAMETERS AnchorID,Options
	with thisform.G2antt1
		DEBUGOUT( "AnchorClick" )
		DEBUGOUT( AnchorID )
		DEBUGOUT( Options )
	endwith

*** BarParentChange event - Occurs just before moving a bar from current item to another item. ***
LPARAMETERS Item,Key,NewItem,Cancel
	with thisform.G2antt1
		DEBUGOUT( "BarParentChange" )
		DEBUGOUT( Item )
		DEBUGOUT( Key )
		DEBUGOUT( NewItem )
	endwith

*** BarResize event - Occurs when a bar is moved or resized. ***
LPARAMETERS Item,Key
	with thisform.G2antt1
		DEBUGOUT( "BarResize" )
		DEBUGOUT( Item )
		DEBUGOUT( Key )
	endwith

*** BarResizing event - Occurs when a bar is moving or resizing. ***
LPARAMETERS Item,Key
	with thisform.G2antt1
		DEBUGOUT( "BarResizing" )
		DEBUGOUT( Item )
		DEBUGOUT( Key )
	endwith

*** BeforeExpandItem event - Fired before an item is about to be expanded (collapsed). ***
LPARAMETERS Item,Cancel
	with thisform.G2antt1
		DEBUGOUT( "BeforeExpandItem" )
		DEBUGOUT( Item )
	endwith

*** ButtonClick event - Occurs when user clicks on the cell's button. ***
LPARAMETERS Item,ColIndex,Key
	with thisform.G2antt1
		DEBUGOUT( "ButtonClick" )
		DEBUGOUT( Item )
		DEBUGOUT( ColIndex )
		DEBUGOUT( Key )
	endwith

*** CellImageClick event - Fired after the user clicks on the image's cell area. ***
LPARAMETERS Item,ColIndex
	with thisform.G2antt1
		DEBUGOUT( "CellImageClick" )
		DEBUGOUT( Item )
		DEBUGOUT( ColIndex )
	endwith

*** CellStateChanged event - Fired after cell's state has been changed. ***
LPARAMETERS Item,ColIndex
	with thisform.G2antt1
		DEBUGOUT( "CellStateChanged" )
		DEBUGOUT( Item )
		DEBUGOUT( ColIndex )
	endwith

*** Change event - Occurs when the user changes the cell's content. ***
LPARAMETERS Item,ColIndex,NewValue
	with thisform.G2antt1
		DEBUGOUT( "Change" )
		DEBUGOUT( Item )
		DEBUGOUT( ColIndex )
		DEBUGOUT( NewValue )
	endwith

*** ChartEndChanging event - Occurs after the chart has been changed. ***
LPARAMETERS Operation
	with thisform.G2antt1
		DEBUGOUT( "ChartEndChanging" )
		DEBUGOUT( Operation )
	endwith

*** ChartSelectionChanged event - Occurs when the user selects objects in the chart area. ***
LPARAMETERS nop
	with thisform.G2antt1
		DEBUGOUT( "ChartSelectionChanged" )
	endwith

*** ChartStartChanging event - Occurs when the chart is about to be changed. ***
LPARAMETERS Operation
	with thisform.G2antt1
		DEBUGOUT( "ChartStartChanging" )
		DEBUGOUT( Operation )
	endwith

*** Click event - Occurs when the user presses and then releases the left mouse button over the tree control. ***
LPARAMETERS nop
	with thisform.G2antt1
		DEBUGOUT( "Click" )
	endwith

*** ColumnClick event - Fired after the user clicks on column's header. ***
LPARAMETERS Column
	with thisform.G2antt1
		DEBUGOUT( "ColumnClick" )
	endwith

*** CreateBar event - Fired when the user creates a new bar. ***
LPARAMETERS Item,DateStart,DateEnd
	with thisform.G2antt1
		DEBUGOUT( "CreateBar" )
		DEBUGOUT( Item )
		DEBUGOUT( DateStart )
		DEBUGOUT( DateEnd )
	endwith

*** DateChange event - Occurs when the first visible date is changed. ***
LPARAMETERS nop
	with thisform.G2antt1
		DEBUGOUT( "DateChange" )
	endwith

*** DblClick event - Occurs when the user dblclk the left mouse button over an object. ***
LPARAMETERS Shift,X,Y
	with thisform.G2antt1
		DEBUGOUT( "DblClick" )
		DEBUGOUT( Shift )
		DEBUGOUT( X )
		DEBUGOUT( Y )
		.Edit()
	endwith

*** Edit event - Occurs just before editing the focused cell. ***
LPARAMETERS Item,ColIndex,Cancel
	with thisform.G2antt1
		DEBUGOUT( "Edit" )
		DEBUGOUT( Item )
		DEBUGOUT( ColIndex )
	endwith

*** EditClose event - Occurs when the edit operation ends. ***
LPARAMETERS nop
	with thisform.G2antt1
		DEBUGOUT( "EditClose" )
	endwith

*** EditOpen event - Occurs when the edit operation starts. ***
LPARAMETERS nop
	with thisform.G2antt1
		DEBUGOUT( "EditOpen" )
	endwith

*** FilterChange event - Occurs when the filter was changed. ***
LPARAMETERS nop
	with thisform.G2antt1
		DEBUGOUT( "FilterChange" )
	endwith

*** FilterChanging event - Notifies your application that the filter is about to change. ***
LPARAMETERS nop
	with thisform.G2antt1
		DEBUGOUT( "FilterChanging" )
	endwith

*** FocusChanged event - Occurs when a cell gets the focus. ***
LPARAMETERS nop
	with thisform.G2antt1
		DEBUGOUT( "FocusChanged" )
	endwith

*** InsideZoom event - Notifies your application that a date is about to be magnified. ***
LPARAMETERS DateTime
	with thisform.G2antt1
		DEBUGOUT( "InsideZoom" )
		DEBUGOUT( DateTime )
	endwith

*** KeyDown event - Occurs when the user presses a key while an object has the focus. ***
LPARAMETERS KeyCode,Shift
	with thisform.G2antt1
		DEBUGOUT( "KeyDown" )
		DEBUGOUT( KeyCode )
		DEBUGOUT( Shift )
	endwith

*** KeyPress event - Occurs when the user presses and releases an ANSI key. ***
LPARAMETERS KeyAscii
	with thisform.G2antt1
		DEBUGOUT( "KeyPress" )
		DEBUGOUT( KeyAscii )
	endwith

*** KeyUp event - Occurs when the user releases a key while an object has the focus. ***
LPARAMETERS KeyCode,Shift
	with thisform.G2antt1
		DEBUGOUT( "KeyUp" )
		DEBUGOUT( KeyCode )
		DEBUGOUT( Shift )
	endwith

*** LayoutChanged event - Occurs when column's position or column's size is changed. ***
LPARAMETERS nop
	with thisform.G2antt1
		DEBUGOUT( "LayoutChanged" )
	endwith

*** MouseDown event - Occurs when the user presses a mouse button. ***
LPARAMETERS Button,Shift,X,Y
	with thisform.G2antt1
		DEBUGOUT( "MouseDown" )
		DEBUGOUT( Button )
		DEBUGOUT( Shift )
		DEBUGOUT( X )
		DEBUGOUT( Y )
	endwith

*** MouseMove event - Occurs when the user moves the mouse. ***
LPARAMETERS Button,Shift,X,Y

*** MouseUp event - Occurs when the user releases a mouse button. ***
LPARAMETERS Button,Shift,X,Y
	with thisform.G2antt1
		DEBUGOUT( "MouseUp" )
		DEBUGOUT( Button )
		DEBUGOUT( Shift )
		DEBUGOUT( X )
		DEBUGOUT( Y )
	endwith

*** OffsetChanged event - Occurs when the scroll position has been changed. ***
LPARAMETERS Horizontal,NewVal
	with thisform.G2antt1
		DEBUGOUT( "OffsetChanged" )
		DEBUGOUT( Horizontal )
		DEBUGOUT( NewVal )
	endwith

*** OversizeChanged event - Occurs when the right range of the scroll has been changed. ***
LPARAMETERS Horizontal,NewVal
	with thisform.G2antt1
		DEBUGOUT( "OversizeChanged" )
		DEBUGOUT( Horizontal )
		DEBUGOUT( NewVal )
	endwith

*** OverviewZoom event - Occurs once the user selects a new time scale unit in the overview zoom area. ***
LPARAMETERS nop
	with thisform.G2antt1
		DEBUGOUT( "OverviewZoom" )
	endwith

*** RClick event - Fired when right mouse button is clicked ***
LPARAMETERS nop
	with thisform.G2antt1
		DEBUGOUT( "RClick" )
	endwith

*** ScrollButtonClick event - Occurs when the user clicks a button in the scrollbar. ***
LPARAMETERS ScrollBar,ScrollPart
	with thisform.G2antt1
		DEBUGOUT( "ScrollButtonClick" )
		DEBUGOUT( ScrollBar )
		DEBUGOUT( ScrollPart )
	endwith

*** SelectionChanged event - Fired after a new item has been selected. ***
LPARAMETERS nop
	with thisform.G2antt1
		DEBUGOUT( "SelectionChanged" )
	endwith

*** Sort event - Fired when the control sorts a column. ***
LPARAMETERS nop
	with thisform.G2antt1
		DEBUGOUT( "Sort" )
	endwith

with thisform.G2antt1
	.BeginUpdate
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.DrawGridLines = -1
	.LinesAtRoot = -1
	.GridLineStyle = 4
	.AutoEdit = .F.
	.ExpandOnDblClick = .F.
	with .Chart
		.AllowInsideZoom = .T.
		.OverviewVisible = 2
		.AllowOverviewZoom = 1
		.PaneWidth(0) = 128
		.FirstVisibleDate = {^2001-1-1}
		.DrawGridLines = -1
		.GridLineStyle = 36 && GridLinesStyleEnum.exGridLinesVSolid Or GridLinesStyleEnum.exGridLinesHDash
		.LevelCount = 2
		.Level(0).DrawGridLines = .T.
		.Bars.Item("Task").Pattern = 1
		.UnitScale = 4096
		.Label(16777216) = ""
		.Label(1048576) = ""
		.Label(65536) = ""
	endwith
	with .Columns
		with .Add("Column")
			.DisplayFilterButton = .T.
			.Def(0) = .T.
			.Editor.EditType = 1
		endwith
		with .Add("Button")
			.AllowSizing = .F.
			.Width = 18
			.Def(2) = .T.
		endwith
	endwith
	with .Items
		h = .AddItem("parent")
		.DefaultItem = h
		.CellImage(0,0) = 1
		.AddBar(h,"Task",{^2001-1-2},{^2001-1-5},"A","<a>A</a>")
		.DefaultItem = h
		.ItemBar(0,"A",4) = 18
		.DefaultItem = h
		.ItemBar(0,"A",28) = .T.
		.DefaultItem = h
		.ItemBar(0,"A",6) = "This is a bit of text that should be shown when cursor hovers the bar"
		.AddBar(h,"Task",{^2001-1-8},{^2001-1-15},"B","<a>B</a>")
		.DefaultItem = h
		.ItemBar(0,"B",4) = 18
		.DefaultItem = h
		.ItemBar(0,"B",28) = .T.
		.InsertItem(h,"","child")
		.DefaultItem = h
		.ExpandItem(0) = .T.
	endwith
	.EndUpdate
endwith
1366
How can I change the chart's horizontal grid lines
with thisform.G2antt1
	.BeginUpdate
	.DrawGridLines = -1
	.GridLineStyle = 4
	with .Chart
		.PaneWidth(0) = 48
		.FirstVisibleDate = {^2001-1-1}
		.DrawGridLines = -1
		.GridLineStyle = 36 && GridLinesStyleEnum.exGridLinesVSolid Or GridLinesStyleEnum.exGridLinesHDash
		.LevelCount = 2
		.Level(0).DrawGridLines = .T.
		.Bars.Item("Task").Pattern = 1
	endwith
	.Columns.Add("Column")
	with .Items
		h = .AddItem("Item 1")
		.AddBar(h,"Task",{^2001-1-2},{^2001-1-5},"A")
		.AddBar(h,"Task",{^2001-1-8},{^2001-1-15},"B")
	endwith
	.EndUpdate
endwith
1365
Is there any way to determine whether the ADO operations fails
*** AddItem event - Occurs after a new Item has been inserted to Items collection. ***
LPARAMETERS Item
	with thisform.G2antt1
		with .Items
			.AddBar(Item,"Task",.CellValue(Item,2),.CellValue(Item,4))
		endwith
	endwith

*** Error event - Fired when an internal error occurs. ***
LPARAMETERS Error,Description
	with thisform.G2antt1
		DEBUGOUT( Error )
		DEBUGOUT( Description )
	endwith

with thisform.G2antt1
	.BeginUpdate
	with .Chart
		.FirstVisibleDate = {^1994-8-3}
		.PaneWidth(0) = 256
		.LevelCount = 2
		.UnitScale = 4096
		.FirstWeekDay = 1
		.OverviewVisible = 2
	endwith
	.ColumnAutoResize = .F.
	.ContinueColumnScroll = .F.
	rs = CreateObject("ADOR.Recordset")
	with rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",1,1)
	endwith
	.DataSource = rs
	.Items.AllowCellValueToItemBar = .T.
	.Columns.Item(2).Def(18) = 1
	.Columns.Item(4).Def(18) = 2
	.EndUpdate
endwith
1364
Is it possible to select a column instead sorting it
*** ColumnClick event - Fired after the user clicks on column's header. ***
LPARAMETERS Column
	*** Column.Selected = True
	with thisform.G2antt1
		.BeginUpdate
		.Columns.Item(0).Selected = .F.
		.Columns.Item(1).Selected = .F.
		.Items.SelectAll
		.EndUpdate
	endwith

with thisform.G2antt1
	.BeginUpdate
	.MarkSearchColumn = .F.
	.ShowFocusRect = .F.
	.SingleSel = .F.
	.FullRowSelect = 1
	.SortOnClick = 0
	with .Columns
		.Add("Column1")
		.Add("Column2")
	endwith
	with .Items
		.DefaultItem = .AddItem("One")
		.CellValue(0,1) = "Three"
		.DefaultItem = .AddItem("Two")
		.CellValue(0,1) = "Four"
		.SelectAll
	endwith
	.EndUpdate
endwith
1363
I am using the exRectSel, and clicking the first column, has no effect, instead if I click other it works as it should
with thisform.G2antt1
	.BeginUpdate
	.SearchColumnIndex = -1
	.FullRowSelect = 1
	.ShowFocusRect = .F.
	.MarkSearchColumn = .F.
	with .Columns
		.Add("Column1")
		.Add("Column2")
	endwith
	with .Items
		.DefaultItem = .AddItem(1)
		.CellValue(0,1) = 2
		.DefaultItem = .AddItem(3)
		.CellValue(0,1) = 4
		.DefaultItem = .AddItem(5)
		.CellValue(0,1) = 6
	endwith
	.EndUpdate
endwith
1362
Is it possible to display empty strings for 0 values
with thisform.G2antt1
	with .Columns.Add("Currency")
		.FormatColumn = "dbl(value) ? currency(dbl(value)) : ``"
		with .Editor
			.EditType = 1
			.Numeric = 1
		endwith
	endwith
	with .Items
		.AddItem(1.23)
		.AddItem(2.34)
		.AddItem(0)
		.AddItem(10000.99)
	endwith
endwith
1361
Is it possible to display empty strings for 0 values
with thisform.G2antt1
	.Columns.Add("Number")
	.Columns.Add("Currency").ComputedField = "%0 ? currency(%0) : ``"
	with .Items
		.AddItem(1.23)
		.AddItem(2.34)
		.AddItem(0)
		.AddItem(10000.99)
	endwith
endwith
1360
How can I hide a date from the chart view, when I display hours instead days

with thisform.G2antt1
	.BeginUpdate
	.HeaderHeight = 32
	with .Chart
		.FirstVisibleDate = {^2011-6-8}
		.AdjustLevelsToBase = .T.
		.PaneWidth(0) = 0
		.LevelCount = 2
		.AllowInsideZoom = .T.
		with .Level(0)
			.Alignment = 1
			.Label = "<b><%d%>-<%mmm%>-<%yyyy%>"
			.Unit = 4096
		endwith
		with .Level(1)
			.Label = "<%h%>"
			.Count = 8
			.Unit = 65536
			var_s = "date(int(dvalue)) case (#06/08/2011# : (int(value) case ( 0 : 'Shift <b>1</b><br>23/20'; 8 : 'Shift <b>2</b><br>38/30' ; 16 : 'S"
			var_s = var_s + "hift <b>3</b><br>24/24' ) ) ; #06/09/2011# : (int(value) case ( 0 : 'Shift <b>1</b><br>15/20'; 8 : 'Shift <b>2</b><br>30/32' ; 1"
			var_s = var_s + "6 : 'Shift <b>3</b><br>26/24' ) ) )"
			.FormatLabel = var_s
		endwith
		.UnitWidth = 64
		.NonworkingDays = 0
		.AllowInsideZoom = .T.
		.DefaultInsideZoomFormat.InsideUnit = 1048576
		.AllowResizeInsideZoom = .F.
		.InsideZoomOnDblClick = .F.
		with .InsideZooms
			.SplitBaseLevel = .F.
			.DefaultWidth = 0
		endwith
		with .InsideZooms
			.Add({^2011-6-9 8:00:00})
			.Add({^2011-6-9 16:00:00})
		endwith
	endwith
	.EndUpdate
endwith
1359
I’ve created a skin (EBN) for the bars of my chart, with rounded top corners. The problem, is that these rounded corners are applied also at beginning and the end of the non working units. Is it possible to show a different picture/skin for the non-working part of the bars

with thisform.G2antt1
	.BeginUpdate
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
	.Columns.Add("Task")
	.Chart.PaneWidth(0) = 128
	with .Chart.Bars
		.Item("Task").Color = 0x1000000
		.Item("Split").Color = 0x2000000
		.Add("Task:Split").Shortcut = "TS"
	endwith
	.Chart.FirstVisibleDate = {^2001-1-1}
	with .Items
		.AddBar(.AddItem("Task"),"TS",{^2001-1-2},{^2001-1-16})
	endwith
	.EndUpdate
endwith
1358
How do I display the names of the tasks on bars but not in the middle of the bar (left or right)

with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Tasks")
	with .Chart
		.FirstVisibleDate = {^2000-12-27}
		.PaneWidth(0) = 128
		with .Bars.Item("Task")
			.Pattern = 2
			.Height = 15
		endwith
	endwith
	with .Items
		h = .AddItem("Task 1")
		.AddBar(h,"Task",{^2001-1-3},{^2001-1-8},"K1","<b>to do</b> ")
		.DefaultItem = h
		.ItemBar(0,"K1",4) = 2
		h = .AddItem("Task 2")
		.AddBar(h,"Task",{^2001-1-3},{^2001-1-8},"K2","<b>to do</b>")
		.DefaultItem = h
		.ItemBar(0,"K2",4) = 18
		h = .AddItem("Task 3")
		.AddBar(h,"Task",{^2001-1-3},{^2001-1-8},"K1"," <b>to do</b>")
		.DefaultItem = h
		.ItemBar(0,"K1",4) = 0
		h = .AddItem("Task 4")
		.AddBar(h,"Task",{^2001-1-3},{^2001-1-8},"K2","<b>to do</b>")
		.DefaultItem = h
		.ItemBar(0,"K2",4) = 16
	endwith
	.EndUpdate
endwith
1357
How can I get the list of items as they are displayed
with thisform.G2antt1
	.BeginUpdate
	.BackColorAlternate = RGB(240,240,240)
	.Columns.Add("Names")
	with .Items
		.AddItem("Mantel")
		.AddItem("Mechanik")
		.AddItem("Motor")
		.AddItem("Murks")
		.AddItem("Märchen")
		.AddItem("Möhren")
		.AddItem("Mühle")
	endwith
	.Columns.Item(0).SortOrder = 1
	.EndUpdate
	DEBUGOUT( .GetItems(1) )
endwith
1356
How can I disable the left and right arrows to move to next cell while editing
with thisform.G2antt1
	var_Editor = .Columns.Add("Edit").Editor
	with var_Editor
		.EditType = 1
		.Option(20) = 0
		.Option(21) = 0
	endwith
	with .Items
		.AddItem("Cell 1")
		.AddItem("Cell 2")
		.AddItem("Cell 3")
	endwith
endwith
1355
Is it possible to define a bar that is treated as a non-working hour so user can move it at runtime

with thisform.G2antt1
	.BeginUpdate
	with .Chart
		.FirstVisibleDate = {^2001-1-1}
		.LevelCount = 2
		.PaneWidth(0) = 48
		.AllowNonworkingBars = .T.
		.Bars.Add("Task:Split").Shortcut = "Task"
		.UnitScale = 65536
		.Level(1).Label = "<font ;4><%hh%>"
		.UnitWidth = 12
		.NonworkingDaysPattern = 6
		.NonworkingDays = 0
	endwith
	.Columns.Add("Tasks")
	with .Items
		h = .AddItem("Machine")
		.DefaultItem = h
		.ItemNonworkingUnits(0,.F.) = "0"
		.AddBar(h,"",{^2001-1-1 9:00:00},{^2001-1-1 11:00:00},"A","pause")
		.DefaultItem = h
		.ItemBar(0,"A",38) = .T.
		.AddBar(h,"Task",{^2001-1-1 12:00:00},{^2001-1-1 17:00:00},"Z")
		.DefaultItem = h
		.ItemBar(0,"Z",20) = .T.
	endwith
	.EndUpdate
endwith
1354
Is it possible to customize the chart's header so I can display shift and other values

with thisform.G2antt1
	.BeginUpdate
	.HeaderHeight = 32
	with .Chart
		.FirstVisibleDate = {^2011-6-8}
		.AdjustLevelsToBase = .T.
		.PaneWidth(0) = 0
		.LevelCount = 2
		with .Level(0)
			.Alignment = 1
			.Label = "<b><%d%> - <%mmmm%> - <%yyyy%>"
			.Unit = 4096
		endwith
		with .Level(1)
			.Label = "<%h%>"
			.Count = 8
			.Unit = 65536
			var_s = "date(int(dvalue)) case (#06/08/2011# : (int(value) case ( 0 : 'Shift <b>1</b><br>23/20'; 8 : 'Shift <b>2</b><br>38/30' ; 16 : 'S"
			var_s = var_s + "hift <b>3</b><br>24/24' ) ) ; #06/09/2011# : (int(value) case ( 0 : 'Shift <b>1</b><br>15/20'; 8 : 'Shift <b>2</b><br>30/32' ; 1"
			var_s = var_s + "6 : 'Shift <b>3</b><br>26/24' ) ) )"
			.FormatLabel = var_s
		endwith
		.UnitWidth = 64
		.NonworkingDays = 0
	endwith
	.EndUpdate
endwith
1353
How can I change both start and end dates of the bar
with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Tasks")
	with .Chart
		.PaneWidth(0) = 64
		.FirstVisibleDate = {^2005-6-19}
	endwith
	with .Items
		h = .AddItem("Test")
		.AddBar(h,"Task",{^2005-6-22},{^2005-6-27},"t1")
		.AddBar(h,.ItemBar(h,"t1",0),{^2005-6-21},{^2005-6-22},"t1")
	endwith
	.EndUpdate
endwith
1352
Is it possible to add new rows, as I type like in Excel
*** EditClose event - Occurs when the edit operation ends. ***
LPARAMETERS nop
	with thisform.G2antt1
		.Items.AddItem("")
	endwith

with thisform.G2antt1
	.BeginUpdate
	.AutoEdit = .T.
	.Columns.Add("Default").Editor.EditType = 1
	.FullRowSelect = 0
	.Items.AddItem("")
	.DrawGridLines = -1
	.ScrollBars = 15
	.EndUpdate
endwith
1351
How do I load bars from my table/database
*** AddItem event - Occurs after a new Item has been inserted to Items collection. ***
LPARAMETERS Item
	with thisform.G2antt1
		with .Items
			.AddBar(Item,"Task",.CellValue(Item,2),.CellValue(Item,4))
		endwith
	endwith

with thisform.G2antt1
	.BeginUpdate
	with .Chart
		.FirstVisibleDate = {^1994-8-3}
		.PaneWidth(0) = 256
		.LevelCount = 2
		.UnitScale = 4096
		.FirstWeekDay = 1
		.OverviewVisible = 2
	endwith
	.ColumnAutoResize = .F.
	.ContinueColumnScroll = .F.
	rs = CreateObject("ADOR.Recordset")
	with rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3)
	endwith
	.DataSource = rs
	.Items.AllowCellValueToItemBar = .T.
	.Columns.Item(2).Def(18) = 1
	.Columns.Item(4).Def(18) = 2
	.EndUpdate
endwith
1350
Is posible to reduce the size of the picture to be shown in the bar's caption

with thisform.G2antt1
	.BeginUpdate
	.Object.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
	.Columns.Add("Task")
	.ScrollBySingleLine = .T.
	with .Chart
		.FirstVisibleDate = {^2001-1-1}
		.PaneWidth(0) = 78
	endwith
	with .Items
		h = .AddItem("Default-Size")
		.DefaultItem = h
		.ItemHeight(0) = 48
		.AddBar(h,"Task",{^2001-1-2},{^2001-1-6},"K1","<img>pic1</img>")
		h = .AddItem("Custom-Size")
		.AddBar(h,"Task",{^2001-1-2},{^2001-1-6},"K2","<img>pic1:18</img>")
	endwith
	.EndUpdate
endwith
1349
Is posible to reduce the size of the picture to be shown in the column's caption
with thisform.G2antt1
	.BeginUpdate
	.Object.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
	.HeaderHeight = 48
	.Columns.Add("DefaultSize").HTMLCaption = "Default-Size <img>pic1</img> Picture"
	.Columns.Add("CustomSize").HTMLCaption = "Custom-Size <img>pic1:16</img> Picture"
	.EndUpdate
endwith
1348
Is it possible to display the selected dates using a solid color instead vertical lines

with thisform.G2antt1
	.BeginUpdate
	with .Chart
		.PaneWidth(0) = 128
		.FirstVisibleDate = {^2008-1-1}
		.MarkTodayColor = .BackColor
		.LevelCount = 2
		.MarkSelectDateColor = 0x7fcbc0ff
		.SelectLevel = 1
		.SelectDate({^2008-1-8}) = .T.
		.SelectDate({^2008-1-9}) = .T.
		.SelectDate({^2008-1-10}) = .T.
	endwith
	.DefaultItemHeight = 72
	.Columns.Add("Default")
	with .Items
		var_s = "<b>MarkSelectDateColor(32)</b><br>should be <font ;11><i>0x7F000000 + RGB(rr,gg,bb)</i></font><br> or in the format as: <font ;1"
		var_s = var_s + "1><i>0x7FBBGGRR</i></font>, <br>where BB is the hexa value for Blue, <br>GG for grean and so on."
		.AddBar(.AddItem(""),"",{^2008-1-7},{^2008-1-12},"",var_s)
	endwith
	.EndUpdate
endwith
1347
How can I show the cells using a different background color based on the condition I have
with thisform.G2antt1
	.BeginUpdate
	.SelBackMode = 1
	.ShowFocusRect = .F.
	with .ConditionalFormats
		with .Add("dbl(%1)-dbl(%0) = 1")
			.BackColor = RGB(255,0,0)
			.ApplyTo = 1 && 0x1
		endwith
		with .Add("dbl(%0)-dbl(%1) = 3")
			.BackColor = RGB(255,255,0)
			.ApplyTo = 0
		endwith
		with .Add("dbl(%1)-dbl(%0) = 4")
			.ForeColor = RGB(128,128,128)
			.Bold = .T.
			.ApplyTo = -1
		endwith
	endwith
	with .Columns
		.Add("C1").Width = 8
		.Add("C2").Width = 8
		.Add("")
	endwith
	.Chart.PaneWidth(1) = 0
	with .Items
		.DefaultItem = .AddItem(2)
		.CellValue(0,1) = 3
		.DefaultItem = .AddItem(5)
		.CellValue(0,1) = 2
		.DefaultItem = .AddItem(5)
		.CellValue(0,1) = 6
		.DefaultItem = .AddItem(2)
		.CellValue(0,1) = 6
	endwith
	.EndUpdate
endwith
1346
How can I specify the frame's color for all Task bars

with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Task")
	with .Chart
		.FirstVisibleDate = {^2001-1-1}
		.PaneWidth(0) = 128
		.Bars.Item("Task").Def(51) = 255
	endwith
	with .Items
		.AddBar(.AddItem("Task 1"),"Task",{^2001-1-2},{^2001-1-5},"K1")
		.AddBar(.AddItem("Task 2"),"Task",{^2001-1-2},{^2001-1-5},"K2")
		.AddBar(.AddItem("Task 3"),"Task",{^2001-1-2},{^2001-1-5},"K3")
	endwith
	.EndUpdate
endwith
1345
Is it possible to change the bar's frame color

with thisform.G2antt1
	.BeginUpdate
	.DefaultItemHeight = 25
	.Columns.Add("Task")
	with .Chart
		.FirstVisibleDate = {^2001-1-1}
		.PaneWidth(0) = 128
		.DrawGridLines = 1
		.NonworkingDays = 0
		.Bars.Item("Task").Height = 15
	endwith
	with .Items
		h = .AddItem("Default")
		.AddBar(h,"Task",{^2001-1-2},{^2001-1-5},"K1")
		h = .AddItem("Red-Frame")
		.AddBar(h,"Task",{^2001-1-3},{^2001-1-6},"K1")
		.DefaultItem = h
		.ItemBar(0,"K1",51) = 255
		h = .AddItem("Green-ThickFrame")
		.AddBar(h,"Task",{^2001-1-4},{^2001-1-7},"K1")
		.DefaultItem = h
		.ItemBar(0,"K1",42) = 4099
		.DefaultItem = h
		.ItemBar(0,"K1",51) = 32768
		h = .AddItem("Red-ThickFrame/Shadow")
		.AddBar(h,"Task",{^2001-1-5},{^2001-1-8},"K1")
		.DefaultItem = h
		.ItemBar(0,"K1",42) = 12291
		.DefaultItem = h
		.ItemBar(0,"K1",51) = 255
	endwith
	.EndUpdate
endwith
1344
I need to customize the labels on the chart. Is it possible

with thisform.G2antt1
	.BeginUpdate
	.HeaderHeight = 32
	with .Chart
		.FirstVisibleDate = {^2011-7-1}
		.AdjustLevelsToBase = .T.
		.PaneWidth(0) = 0
		.LevelCount = 2
		with .Level(0)
			.Alignment = 1
			.Label = "<b><%d%> - <%mmmm%> - <%yyyy%>"
			.Unit = 4096
		endwith
		with .Level(1)
			.Label = "<%h%>"
			.Count = 8
			.Unit = 65536
			var_s = "int(value) case ( 0 : 'Shift <b>1</b><br><font ;11>' + yearday(dvalue) + '</font>/365 ' ; 8 : 'Shift <b>2</b><br>' + weekday(dva"
			var_s = var_s + "lue) + '/20'; 16 : 'Shift <b>3</b><br>' + (weekday(dvalue) case ( 0 : '12/22'; 1 : '12/23'; 2 : '2/3'; 3 : '12/13'; 4 : '22/34' "
			var_s = var_s + "; 5 : '102-<fgcolor=FF0000><b>31</b></bgcolor>'; 6 : '1/1' ) )  ) "
			.FormatLabel = var_s
		endwith
		.UnitWidth = 64
		.NonworkingDays = 0
	endwith
	.EndUpdate
endwith
1343
Is it possible to show a frame around the bar

with thisform.G2antt1
	.BeginUpdate
	.DefaultItemHeight = 25
	with .VisualAppearance
		var_s = "gBFLBCJwBAEHhEJAEGg4BOUMQAAYAQGKIYBkAKBQAGaAoDDYMgzQwAAxDELMEwsACEIrjKCVIgkHYJRjGEZxMAsEwjAoaQChEZRUhEMgxDDIIyAJIcaw0GSEZwgOQZBi"
		var_s = var_s + "OEYnDANkIYJDSIYHTZIUzTJAdGSVJKNKAoKCaEgORo5SpNUghBDYKQTJyeagkaaRVCWLplRCNIwWNJdVwjEaQaaiarKNqKNpSViAEqSdKEZRLOyRZyiKQMEreY4EUDQc"
		var_s = var_s + "xUPYMNYaAC6AAparpbwCFpSYpRND3TaEE4jSLKAA0HD6QqebIDDJaFq6PbVXSTOLPNhgPQcWxeVJBXjLExUALGSYLC6nKayHZcHACKK5VbVW6ZZDdNy/BLQeD4QANG4r"
		var_s = var_s + "iuNJriMV4dgWVgHh+ZpgCeEIQEQJIgGkMYdA6JwjC0VAAmaJgQgmPp4lCWgSCiaB+DKIYIjqQpllMf6JgYAoAmASAWAaAZggQDJ/gKYJIDYDoDmECBGAOBBhEgVgUgSY"
		var_s = var_s + "RoGYGYGCGKB2BCBwhmiBgLggIgoHoJIJGGKIeCiBYiiiLgXgCIpohoMIMGKGJODSCwghiZg6g6Y5InYPh/lAECAg"
		.Add(1,var_s)
		.Add(2,"CP:1 2 2 -2 -2")
		.Add(3,"CP:1 -5 -5 5 5")
		.Add(4,"XP:Window 19 1")
		.Add(5,"XP:TreeView 2 1")
	endwith
	.Columns.Add("Task")
	with .Chart
		.FirstVisibleDate = {^2001-1-1}
		.PaneWidth(0) = 128
		.DrawGridLines = 1
	endwith
	with .Items
		h = .AddItem("Default")
		.AddBar(h,"Task",{^2001-1-2},{^2001-1-5},"K1")
		h = .AddItem("Red-Frame")
		.AddBar(h,"Task",{^2001-1-3},{^2001-1-6},"K1")
		.DefaultItem = h
		.ItemBar(0,"K1",51) = 255
		h = .AddItem("Green-ThickFrame")
		.AddBar(h,"Task",{^2001-1-4},{^2001-1-7},"K1")
		.DefaultItem = h
		.ItemBar(0,"K1",42) = 4099
		.DefaultItem = h
		.ItemBar(0,"K1",51) = 32768
		h = .AddItem("Red-ThickFrame/Shadow")
		.AddBar(h,"Task",{^2001-1-4},{^2001-1-7},"K1")
		.DefaultItem = h
		.ItemBar(0,"K1",42) = 12291
		.DefaultItem = h
		.ItemBar(0,"K1",51) = 255
		h = .AddItem("EBN-Frame-Border")
		.AddBar(h,"Task",{^2001-1-5},{^2001-1-9},"K2")
		.DefaultItem = h
		.ItemBar(0,"K2",51) = 16777216
		h = .AddItem("EBN-Inside Frame")
		.AddBar(h,"Task",{^2001-1-9},{^2001-1-13},"K3")
		.DefaultItem = h
		.ItemBar(0,"K3",51) = 33554432
		h = .AddItem("EBN-Outside Frame")
		.AddBar(h,"Task",{^2001-1-15},{^2001-1-18},"K4")
		.DefaultItem = h
		.ItemBar(0,"K4",51) = 50331648
		h = .AddItem("EBN-XP Close Button")
		.AddBar(h,"Task",{^2001-1-15},{^2001-1-18},"K5")
		.DefaultItem = h
		.ItemBar(0,"K5",51) = 67108864
		h = .AddItem("EBN-XP TreeView Glyph")
		.AddBar(h,"Task",{^2001-1-15},{^2001-1-18},"K6")
		.DefaultItem = h
		.ItemBar(0,"K6",51) = 83886080
	endwith
	.EndUpdate
endwith
1342
Currently your control, provides customization up to Year,Month,Day,Hours,etc. I would like to add Shifts in a day. Shortly, I need to customize the chart's header. Is it possible

with thisform.G2antt1
	.BeginUpdate
	with .Chart
		.FirstVisibleDate = {^2011-7-1}
		.AdjustLevelsToBase = .T.
		.PaneWidth(0) = 0
		.LevelCount = 2
		with .Level(0)
			.Alignment = 1
			.Label = "<b><%d%> - <%mmmm%> - <%yyyy%>"
			.Unit = 4096
		endwith
		with .Level(1)
			.Label = "<%h%>"
			.Count = 8
			.Unit = 65536
			.ReplaceLabel(0) = " Shift 1"
			.ReplaceLabel(8) = " Shift 2"
			.ReplaceLabel(16) = " Shift 3"
		endwith
		.UnitWidth = 48
		.NonworkingDays = 0
	endwith
	.EndUpdate
endwith
1341
The exbartootip shows dates after you moved or resized the bar. My question is during the move or resizing of bar(you click on bar and drag it,during that time) , can we display the new dates simultaneously so we will know where we want to move or resize the bar to

with thisform.G2antt1
	.Columns.Add("Task")
	with .Chart
		.PaneWidth(0) = 64
		.FirstVisibleDate = {^2001-1-1}
		.DrawDateTicker = .T.
		.DateTickerLabel = "<%mmm%> <%d%><br><b><%yyyy%>"
	endwith
	with .Items
		h = .AddItem("Tasks A")
		.AddBar(h,"Task",{^2001-1-2},{^2001-1-4},"K1")
		.AddBar(h,"Task",{^2001-1-5},{^2001-1-9},"K2")
		.DefaultItem = .AddItem()
		.SelectableItem(0) = .F.
		h = .AddItem("Tasks B")
		.AddBar(h,"Task",{^2001-1-3},{^2001-1-5},"K1")
		.AddBar(h,"Task",{^2001-1-8},{^2001-1-11},"K2")
	endwith
endwith
1340
Is it possible to assign a tooltip automatically to all bars, so it can display the start and end, without specifying the IexBarToolTip for each bar
with thisform.G2antt1
	.Columns.Add("Task")
	with .Chart
		.PaneWidth(0) = 64
		.FirstVisibleDate = {^2001-1-1}
		.Bars.Item("Task").Def(6) = "<b><%=%9 + '/' + %C0%></b><br><upline><dotline>Start: <%=%1%><br>End: <%=%2%><br>Duration: <%=(%2-%1)%><br>Working: <%=%258%>"
	endwith
	with .Items
		h = .AddItem("Tasks A")
		.AddBar(h,"Task",{^2001-1-2},{^2001-1-4},"K1")
		.AddBar(h,"Task",{^2001-1-5},{^2001-1-9},"K2")
		h = .AddItem("Tasks B")
		.AddBar(h,"Task",{^2001-1-3},{^2001-1-5},"K1")
		.AddBar(h,"Task",{^2001-1-8},{^2001-1-11},"K2")
	endwith
endwith
1339
How can I change the color, font, bold etc for the items/cells in the same column or for the entire column
with thisform.G2antt1
	.BeginUpdate
	with .ConditionalFormats.Add("1")
		.Bold = .T.
		.ForeColor = RGB(255,0,0)
		.ApplyTo = 1 && 0x1
	endwith
	.Columns.Add("C1")
	with .Columns.Add("C2")
		.HeaderBold = .T.
		.HTMLCaption = "<fgcolor=FF0000>C2"
	endwith
	with .Items
		.DefaultItem = .AddItem(10)
		.CellValue(0,1) = 11
		.DefaultItem = .AddItem(12)
		.CellValue(0,1) = 13
	endwith
	.EndUpdate
endwith
1338
How can I remove a date-time zone

*** Click event - Occurs when the user presses and then releases the left mouse button over the tree control. ***
LPARAMETERS nop
	with thisform.G2antt1
		.Chart.RemoveTimeZone("Z1")
	endwith

with thisform.G2antt1
	with .Chart
		.PaneWidth(0) = 18
		.LevelCount = 2
		.FirstVisibleDate = {^2010-1-1}
		.MarkTimeZone("Z1",{^2010-1-4},{^2010-1-8},16744544)
	endwith
endwith
1337
How can I filter the check-boxes (method 2)
with thisform.G2antt1
	with .Columns.Add("Check")
		with .Editor
			.EditType = 19
			.Option(17) = 1
		endwith
		.DisplayFilterButton = .T.
		.DisplayFilterPattern = .F.
		.CustomFilter = "checked||-1|||unchecked||0"
	endwith
	with .Items
		.AddItem(.T.)
		.AddItem(.T.)
		.AddItem(.F.)
		.AddItem(.T.)
		.AddItem(.F.)
		.AddItem(.T.)
		.AddItem(.F.)
	endwith
endwith
1336
How can I filter the check-boxes (method 1)
with thisform.G2antt1
	with .Columns.Add("Check")
		with .Editor
			.EditType = 19
			.Option(17) = 1
		endwith
		.DisplayFilterButton = .T.
		.DisplayFilterPattern = .F.
		.FilterType = 6
	endwith
	with .Items
		.AddItem(.T.)
		.AddItem(.T.)
		.AddItem(.F.)
		.AddItem(.T.)
		.AddItem(.F.)
		.AddItem(.T.)
		.AddItem(.F.)
	endwith
endwith
1335
How can add a button to control

*** ButtonClick event - Occurs when user clicks on the cell's button. ***
LPARAMETERS Item,ColIndex,Key
	with thisform.G2antt1
		DEBUGOUT( "ButtonClick" )
		DEBUGOUT( .Items.CellCaption(Item,ColIndex) )
		DEBUGOUT( Key )
	endwith

with thisform.G2antt1
	.BeginUpdate
	.DefaultItemHeight = 22
	.HeaderHeight = 22
	.Appearance = 0
	.DrawGridLines = -2
	.ScrollBySingleLine = .F.
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.Object.HTMLPicture("pic1") = "c:\exontrol\images\auction.gif"
	.Chart.PaneWidth(1) = 0
	with .Columns
		with .Add("Type")
			.Width = 48
			.Def(17) = 1
		endwith
		with .Add("Appearance")
			.Def(17) = 1
			.Alignment = 1
			.HeaderAlignment = 1
		endwith
	endwith
	with .Items
		h = .AddItem("Items.<b>CellHasButton</b> property")
		.DefaultItem = h
		.CellValue(0,1) = "Button <b>1</b>"
		.DefaultItem = h
		.CellHasButton(0,1) = .T.
		h = .AddItem("Items.<b>CellButtonAutoWidth</b> property")
		.DefaultItem = h
		.CellValue(0,1) = " Button <b>2</b> "
		.DefaultItem = h
		.CellHasButton(0,1) = .T.
		.DefaultItem = h
		.CellButtonAutoWidth(0,1) = .T.
		h = .AddItem("Items.<b>CellHasButton</b> property")
		.DefaultItem = h
		.CellValue(0,1) = " <img>2</img>Button <b>3</b> "
		.DefaultItem = h
		.CellHasButton(0,1) = .T.
		.DefaultItem = h
		.CellButtonAutoWidth(0,1) = .T.
		h = .AddItem("Items.<b>CellHasButton</b> property")
		.DefaultItem = h
		.ItemHeight(0) = 32
		.DefaultItem = h
		.CellValue(0,1) = " <img>2</img>Button <b>4</b> <img>pic1</img> "
		.DefaultItem = h
		.CellHasButton(0,1) = .T.
		.DefaultItem = h
		.CellButtonAutoWidth(0,1) = .T.
		h = .AddItem("Items.<b>CellHasButton</b> in splitted cells")
		.DefaultItem = h
		.CellValue(0,1) = " Button <b>5.1</b> "
		.DefaultItem = h
		.CellHasButton(0,1) = .T.
		.DefaultItem = h
		.CellButtonAutoWidth(0,1) = .T.
		s = .SplitCell(h,1)
		.CellValue(0,s) = " Button <b>5.2</b> "
		.CellHasButton(0,s) = .T.
		.CellButtonAutoWidth(0,s) = .T.
		h = .AddItem("Column.<b>Editor</b>, Items.<b>CellEditor</b>")
		.DefaultItem = h
		.CellValue(0,1) = "Visible when clicking the cell"
		with .CellEditor(h,1)
			.EditType = 1
			.AddButton("B1",1,0,"This is a bit of text that's shown when the cursor hovers the button B1")
			.AddButton("B3",2,1,"This is a bit of text that's shown when the cursor hovers the button B3")
			.AddButton("B4",1,1,"This is a bit of text that's shown when the cursor hovers the button B4")
			.ButtonWidth = 24
		endwith
		h = .AddItem("Column.<b>Editor</b>, Items.<b>CellEditor</b>")
		.DefaultItem = h
		.CellValue(0,1) = 3
		with .CellEditor(h,1)
			.EditType = 6
			.AddItem(1,"Flag 1")
			.AddItem(2,"Flag 2")
			.AddItem(4,"Flag 4")
			.AddItem(8,"Flag 8")
			.AddButton("C1",1,0,"This is a bit of text that's shown when the cursor hovers the button C1")
			.AddButton("C3",2,0,"This is a bit of text that's shown when the cursor hovers the button C2")
			.AddButton("C4",1,0,"This is a bit of text that's shown when the cursor hovers the button C3")
			.ButtonWidth = 24
		endwith
	endwith
	.EndUpdate
endwith
1334
Is it posible to store additional values against each item, cell, bar, link, such as custom values such string / numbers etc
with thisform.G2antt1
	with .Chart
		.LevelCount = 2
		.FirstVisibleDate = {^2001-1-1}
		.PaneWidth(0) = 96
	endwith
	.Columns.Add("Column").Data = "Extra_Data_Column"
	with .Items
		h = .AddItem("Item 1")
		.DefaultItem = h
		.ItemData(0) = "Extra_Data_Item 1"
		.DefaultItem = h
		.CellData(0,0) = "Extra_Data_Item 1_Cell_0"
		.AddBar(h,"Task",{^2001-1-2},{^2001-1-4},"B1")
		.DefaultItem = h
		.ItemBar(0,"B1",17) = "Extra_B1_Data"
		h = .AddItem("Item 2")
		.DefaultItem = h
		.ItemData(0) = "Extra_Data_Item 2"
		.AddBar(h,"Task",{^2001-1-6},{^2001-1-10},"B2")
		.DefaultItem = h
		.ItemBar(0,"B2",17) = "Extra_B2_Data"
		.AddLink("L1",.FindItem("Item 1",0),"B1",.FindItem("Item 2",0),"B2")
		.Link("L1",5) = "Extra_Link_Data"
	endwith
endwith
1333
How do I set the parent item to show the total number of days for its children and also the minimum and maximum dates for its children

with thisform.G2antt1
	.BeginUpdate
	.MarkSearchColumn = .F.
	.Indent = 11
	.HasLines = 1
	.Items.AllowCellValueToItemBar = .T.
	with .Columns
		.Add("Tasks")
		.Add("Start").Def(18) = 1
		.Add("End").Def(18) = 2
		.Add("Duration").Def(18) = 513
	endwith
	with .Chart
		.ShowNonworkingDates = .F.
		.FirstVisibleDate = {^2006-9-20}
		.AllowLinkBars = .F.
		.AllowCreateBar = 0
		.LevelCount = 2
		.PaneWidth(0) = 220
	endwith
	with .Items
		h = .AddItem("Project")
		.AddBar(h,"Summary",{^2006-9-21},{^2006-10-3})
		h1 = .InsertItem(h,Null,"Task 1")
		.AddBar(h1,"Task",{^2006-9-21},{^2006-9-24})
		h2 = .InsertItem(h,Null,"Task 2")
		.AddBar(h2,"Task",{^2006-9-24},{^2006-9-28})
		h3 = .InsertItem(h,Null,"Task 3")
		.AddBar(h3,"Task",{^2006-9-28},{^2006-10-3})
		.DefineSummaryBars(h,"",h1,"")
		.DefineSummaryBars(h,"",h2,"")
		.DefineSummaryBars(h,"",h3,"")
		.DefaultItem = h
		.ExpandItem(0) = .T.
		.DefaultItem = h
		.ItemBold(0) = .T.
	endwith
	.EndUpdate
endwith
1332
Is it possible to specify the distance between 2 bars to be at least 2 working days

*** BarResizing event - Occurs when a bar is moving or resizing. ***
LPARAMETERS Item,Key
	with thisform.G2antt1
		.Items.SchedulePDM(Item,Key)
	endwith

with thisform.G2antt1
	.BeginUpdate
	.DefaultItemHeight = 24
	.AntiAliasing = .T.
	.Columns.Add("Task")
	with .Chart
		.LevelCount = 2
		with .Bars.Add("Task:Split")
			.Shortcut = "Task"
			.Color = RGB(0,0,0)
			.Height = 17
			.Pattern = 8192
		endwith
		.FirstVisibleDate = {^2001-1-3}
		.PaneWidth(0) = 48
		.LinksWidth = 2
		.AllowCreateBar = 0
		.AllowLinkBars = .F.
		.FirstWeekDay = 1
		.NonworkingDaysPattern = 6
	endwith
	with .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",{^2001-1-4},{^2001-1-6},"K1")
		.DefaultItem = h1
		.ItemBar(0,"K1",20) = .T.
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",{^2001-1-2},{^2001-1-5},"K2")
		.DefaultItem = h2
		.ItemBar(0,"K2",20) = .T.
		.AddLink("L1",h1,"K1",h2,"K2")
		.Link("L1",15) = -1
		.Link("L1",8) = 8421504
		h3 = .AddItem("Task 3")
		.AddBar(h3,"Task",{^2001-1-2},{^2001-1-6},"K3")
		.DefaultItem = h3
		.ItemBar(0,"K3",20) = .T.
		.AddLink("L2",h2,"K2",h3,"K3")
		.Link("L2",12) = "<br><br><br><br>This link <u>delays</u> the bars<br>with <b>2</b> working days"
		.Link("L2",16) = 2
		.Link("L2",15) = -1
		.SchedulePDM(0,"K1")
	endwith
	.EndUpdate
endwith
1331
The item is not getting selected when clicking the cell's checkbox. What should I do
*** CellStateChanged event - Fired after cell's state has been changed. ***
LPARAMETERS Item,ColIndex
	with thisform.G2antt1
		.DefaultItem = Item
		.Items.SelectItem(0) = .T.
	endwith

with thisform.G2antt1
	.Columns.Add("Check").Def(0) = .T.
	with .Items
		.AddItem(0)
		.AddItem(1)
		.AddItem(2)
		.AddItem(3)
	endwith
endwith
1330
How can I add a summary item as a child or subitem of another one

with thisform.G2antt1
	.BeginUpdate
	with .Chart
		.PaneWidth(0) = 96
		.FirstVisibleDate = {^2011-1-1}
		.LevelCount = 2
	endwith
	.Columns.Add("Default")
	.LinesAtRoot = -1
	with .Items
		hSummary = .AddItem("Project")
		.AddBar(hSummary,"Summary",{^2011-1-1},{^2011-1-1},"Sum")
		hChild = .InsertItem(hSummary,0,"Task 1")
		.AddBar(hChild,"Task",{^2011-1-2},{^2011-1-4},"Task1")
		.DefineSummaryBars(hSummary,"Sum",hChild,"Task1")
		hChild = .InsertItem(hSummary,0,"Task 2")
		.AddBar(hChild,"Task",{^2011-1-4},{^2011-1-6},"Task2")
		.DefineSummaryBars(hSummary,"Sum",hChild,"Task2")
		hChild = .InsertItem(hSummary,0,"Task 3")
		.AddBar(hChild,"Task",{^2011-1-6},{^2011-1-8},"Task3")
		.DefineSummaryBars(hSummary,"Sum",hChild,"Task3")
		.DefaultItem = hSummary
		.ExpandItem(0) = .T.
	endwith
	.EndUpdate
endwith
1329
How can I make an item a subitem of another one
with thisform.G2antt1
	.BeginUpdate
	.LinesAtRoot = -1
	.Chart.PaneWidth(1) = 0
	.Columns.Add("Default")
	with .Items
		hSummary = .AddItem("Project")
		hChild = .InsertItem(hSummary,0,"Task 1")
		hChild = .InsertItem(hSummary,0,"Task 2")
		hChild = .InsertItem(hSummary,0,"Task 3")
		.DefaultItem = hSummary
		.ExpandItem(0) = .T.
	endwith
	.EndUpdate
endwith
1328
Is it possible to move a bar per drag and drop to another owner/item
with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Members").Def(17) = 1
	with .Chart
		.FirstVisibleDate = {^2006-9-20}
		.AllowLinkBars = .F.
		.AllowCreateBar = 0
		.AllowSelectObjects = 0
		.LevelCount = 2
		.PaneWidth(0) = 96
		.Bars.Item("Task").OverlaidType = 4611 && OverlaidBarsTypeEnum.exOverlaidBarsIncludeCaption Or OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or OverlaidBarsTypeEnum.exOverlaidBarsStack
	endwith
	with .Items
		h = .AddItem("Member <b>1</b>")
		.AddBar(h,"Task",{^2006-9-21},{^2006-9-23},"T102","Task <b>102</b>")
		.DefaultItem = h
		.ItemBar(0,"T102",4) = 18
		.DefaultItem = h
		.ItemBar(0,"T102",28) = .T.
		h = .AddItem("Member <b>2</b>")
		h = .AddItem("Member <b>3</b>")
		h = .AddItem("Member <b>4</b>")
		.AddBar(h,"Task",{^2006-9-21},{^2006-9-23},"T103","Task <b>103</b>")
		.DefaultItem = h
		.ItemBar(0,"T103",4) = 18
		.DefaultItem = h
		.ItemBar(0,"T103",28) = .T.
	endwith
	.EndUpdate
endwith
1327
I have the chart displaying days, is it possible to display bars/tasks up to hours so inside days somehow
with thisform.G2antt1
	.BeginUpdate
	with .Chart
		.LevelCount = 2
		.UnitWidth = 38
		.PaneWidth(0) = 28
		.FirstVisibleDate = {^2011-3-4}
		.UnitScale = 4096
		.ResizeUnitScale = 65536
	endwith
	.Columns.Add("Default")
	with .Items
		.AddBar(.AddItem("ASS"),"Task",{^2011-3-7},{^2011-3-7 3:30:00})
		.AddBar(.AddItem("EMB"),"Task",{^2011-3-7 3:30:00},{^2011-3-8 9:15:00})
		.AddBar(.AddItem("TES"),"Task",{^2011-3-8 9:15:00},{^2011-3-8 13:45:00})
	endwith
	.EndUpdate
endwith
1326
Is it possible to limit the height of the item while resizing
*** AddItem event - Occurs after a new Item has been inserted to Items collection. ***
LPARAMETERS Item
	with thisform.G2antt1
		.DefaultItem = Item
		.Items.ItemMinHeight(0) = 18
		.DefaultItem = Item
		.Items.ItemMaxHeight(0) = 72
	endwith

with thisform.G2antt1
	.BeginUpdate
	.ItemsAllowSizing = -1
	.ScrollBySingleLine = .F.
	.BackColorAlternate = RGB(240,240,240)
	.Columns.Add("Names")
	with .Items
		.AddItem("Mantel")
		.AddItem("Mechanik")
		.AddItem("Motor")
		.AddItem("Murks")
		.AddItem("Märchen")
		.AddItem("Möhren")
		.AddItem("Mühle")
	endwith
	.Columns.Item(0).SortOrder = 1
	.EndUpdate
endwith
1325
Is it possible to copy the hierarchy of the control using the GetItems method
with thisform.G2antt1
	.LinesAtRoot = -1
	.Columns.Add("Def")
	with .Items
		h = .AddItem("Root")
		.InsertItem(h,Null,"Child 1")
		.InsertItem(h,Null,"Child 2")
	endwith
	.PutItems(.GetItems(-1))
endwith
1324
I have found a property ReadOnly but this doesn't work correctly. I need the chart part of the control to be readonly too. Is it possible
with thisform.G2antt1
	.ReadOnly = -1
	with .Chart
		.AllowCreateBar = 0
		.BarsAllowSizing = .F.
		.AllowLinkBars = .F.
	endwith
endwith
1323
How can I select a column
*** MouseDown event - Occurs when the user presses a mouse button. ***
LPARAMETERS Button,Shift,X,Y
	with thisform.G2antt1
		.BeginUpdate
		.Columns.Item(thisform.G2antt1.ColumnFromPoint(X,Y)).Selected = .T.
		.Items.SelectAll
		.EndUpdate
	endwith

with thisform.G2antt1
	.BeginUpdate
	.MarkSearchColumn = .F.
	.SingleSel = .F.
	.FullRowSelect = 1
	.SortOnClick = 0
	with .Columns
		.Add("Column1")
		.Add("Column2")
	endwith
	with .Items
		.DefaultItem = .AddItem("One")
		.CellValue(0,1) = "One"
		.DefaultItem = .AddItem("Two")
		.CellValue(0,1) = "Two"
	endwith
	.EndUpdate
endwith
1322
I have several columns, but noticed that the filter is using AND between columns, but I need OR clause for filtering. Is it possible
with thisform.G2antt1
	.BeginUpdate
	.Chart.PaneWidth(1) = 0
	.LinesAtRoot = -1
	with .Columns.Add("Item")
		.DisplayFilterButton = .T.
		.DisplayFilterPattern = .F.
		.Filter = "Child 1"
		.FilterType = 240
	endwith
	with .Columns.Add("Date")
		.DisplayFilterButton = .T.
		.DisplayFilterPattern = .F.
		.DisplayFilterDate = .T.
		.FilterList = 9474 && FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exNoItems
		.Filter = {^2010-12-28}
		.FilterType = 4
	endwith
	.FilterCriteria = "%0 or %1"
	.Object.Description(23) = "<font ;18><fgcolor=FF0000>or</fgcolor></font>"
	.Object.Description(11) = "<font ;18><fgcolor=FF0000>and</fgcolor></font>"
	with .Items
		h = .AddItem("Root 1")
		.DefaultItem = .InsertItem(h,Null,"Child 1")
		.CellValue(0,1) = {^2010-12-27}
		.DefaultItem = .InsertItem(h,Null,"Child 2")
		.CellValue(0,1) = {^2010-12-28}
		.DefaultItem = h
		.ExpandItem(0) = .T.
		h = .AddItem("Root 2")
		.DefaultItem = .InsertItem(h,Null,"Child 1")
		.CellValue(0,1) = {^2010-12-29}
		.DefaultItem = .InsertItem(h,Null,"Child 2")
		.CellValue(0,1) = {^2010-12-30}
	endwith
	.ApplyFilter
	.EndUpdate
endwith
1321
Is it possible exclude the dates being selected in the drop down filter window
with thisform.G2antt1
	.BeginUpdate
	.Chart.PaneWidth(1) = 0
	with .Columns.Add("Date")
		.SortType = 2
		.DisplayFilterButton = .T.
		.DisplayFilterPattern = .F.
		.DisplayFilterDate = .T.
		.FilterList = 9474 && FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exNoItems
	endwith
	with .Items
		.AddItem({^2010-12-27})
		.AddItem({^2010-12-28})
		.AddItem({^2010-12-29})
		.AddItem({^2010-12-30})
		.AddItem({^2010-12-31})
	endwith
	.EndUpdate
endwith
1320
How can I display a calendar control inside the drop down filter window
with thisform.G2antt1
	.BeginUpdate
	.Chart.PaneWidth(1) = 0
	with .Columns.Add("Date")
		.SortType = 2
		.DisplayFilterButton = .T.
		.DisplayFilterPattern = .F.
		.DisplayFilterDate = .T.
		.FilterList = 1282 && FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exNoItems
	endwith
	with .Items
		.AddItem({^2010-12-27})
		.AddItem({^2010-12-28})
		.AddItem({^2010-12-29})
		.AddItem({^2010-12-30})
		.AddItem({^2010-12-31})
	endwith
	.EndUpdate
endwith
1319
Is it possible to include the dates as checkb-boxes in the drop down filter window
with thisform.G2antt1
	.BeginUpdate
	.Chart.PaneWidth(1) = 0
	with .Columns.Add("Dates")
		.SortType = 2
		.DisplayFilterButton = .T.
		.DisplayFilterPattern = .T.
		.DisplayFilterDate = .T.
		.FilterList = 1280 && FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox
		.Filter = "to 12/27/2010"
		.FilterType = 4
	endwith
	with .Items
		.AddItem({^2010-12-27})
		.AddItem({^2010-12-28})
		.AddItem({^2010-12-29})
		.AddItem({^2010-12-30})
		.AddItem({^2010-12-31})
	endwith
	.ApplyFilter
	.EndUpdate
endwith
1318
How can I filter items for dates before a specified date
with thisform.G2antt1
	.BeginUpdate
	.Chart.PaneWidth(1) = 0
	with .Columns.Add("Dates")
		.SortType = 2
		.DisplayFilterButton = .T.
		.DisplayFilterPattern = .T.
		.DisplayFilterDate = .T.
		.FilterList = 1026 && FilterListEnum.exShowFocusItem Or FilterListEnum.exNoItems
		.Filter = "to 12/27/2010"
		.FilterType = 4
	endwith
	with .Items
		.AddItem({^2010-12-27})
		.AddItem({^2010-12-28})
		.AddItem({^2010-12-29})
		.AddItem({^2010-12-30})
		.AddItem({^2010-12-31})
	endwith
	.ApplyFilter
	.EndUpdate
endwith
1317
Is it possible to filter dates
with thisform.G2antt1
	.BeginUpdate
	.Chart.PaneWidth(1) = 0
	with .Columns.Add("Dates")
		.SortType = 2
		.DisplayFilterButton = .T.
		.DisplayFilterPattern = .T.
		.DisplayFilterDate = .T.
		.FilterList = 1026 && FilterListEnum.exShowFocusItem Or FilterListEnum.exNoItems
	endwith
	with .Items
		.AddItem({^2010-12-27})
		.AddItem({^2010-12-28})
		.AddItem({^2010-12-29})
		.AddItem({^2010-12-30})
		.AddItem({^2010-12-31})
	endwith
	.EndUpdate
endwith
1316
Is it possible to change the Exclude field name to something different, in the drop down filter window
with thisform.G2antt1
	.BeginUpdate
	.Chart.PaneWidth(1) = 0
	.LinesAtRoot = -1
	.Object.Description(25) = "Leaving out"
	with .Columns.Add("Items")
		.DisplayFilterButton = .T.
		.DisplayFilterPattern = .F.
		.FilterList = 9472 && FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox
	endwith
	with .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Null,"Child 1")
		.InsertItem(h,Null,"Child 2")
		.DefaultItem = h
		.ExpandItem(0) = .T.
		h = .AddItem("Root 2")
		.InsertItem(h,Null,"Child 1")
	endwith
	.EndUpdate
endwith
1315
How can I display the Exclude field in the drop down filter window
with thisform.G2antt1
	.BeginUpdate
	.Chart.PaneWidth(1) = 0
	.LinesAtRoot = -1
	with .Columns.Add("Items")
		.DisplayFilterButton = .T.
		.DisplayFilterPattern = .F.
		.FilterList = 9472 && FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox
	endwith
	with .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Null,"Child 1")
		.InsertItem(h,Null,"Child 2")
		.DefaultItem = h
		.ExpandItem(0) = .T.
		h = .AddItem("Root 2")
		.InsertItem(h,Null,"Child 1")
	endwith
	.EndUpdate
endwith
1314
Is it possible to show and ensure the focused item from the control, in the drop down filter window
with thisform.G2antt1
	.BeginUpdate
	.Chart.PaneWidth(1) = 0
	.LinesAtRoot = -1
	with .Columns.Add("Items")
		.DisplayFilterButton = .T.
		.DisplayFilterPattern = .F.
		.FilterList = 1280 && FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox
	endwith
	with .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Null,"Child 1")
		.InsertItem(h,Null,"Child 2")
		.DefaultItem = h
		.ExpandItem(0) = .T.
		h = .AddItem("Root 2")
		.InsertItem(h,Null,"Child 1")
		.DefaultItem = .InsertItem(h,Null,"Child 2")
		.SelectItem(0) = .T.
		.DefaultItem = h
		.ExpandItem(0) = .T.
	endwith
	.EndUpdate
endwith
1313
Is it possible to show only blanks items with no listed items from the control
with thisform.G2antt1
	.BeginUpdate
	.Chart.PaneWidth(1) = 0
	.LinesAtRoot = -1
	with .Columns.Add("Items")
		.DisplayFilterButton = .T.
		.DisplayFilterPattern = .F.
		.FilterList = 16386 && FilterListEnum.exShowBlanks Or FilterListEnum.exNoItems
	endwith
	with .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Null,"Child 1")
		.InsertItem(h,Null,"Child 2")
		.DefaultItem = h
		.ExpandItem(0) = .T.
		h = .AddItem("Root 2")
		.InsertItem(h,Null,"Child 1")
		.InsertItem(h,Null,"Child 2")
	endwith
	.EndUpdate
endwith
1312
How can I include the blanks items in the drop down filter window
with thisform.G2antt1
	.BeginUpdate
	.Chart.PaneWidth(1) = 0
	.LinesAtRoot = -1
	with .Columns.Add("Items")
		.DisplayFilterButton = .T.
		.DisplayFilterPattern = .F.
		.FilterList = 16640 && FilterListEnum.exShowBlanks Or FilterListEnum.exShowCheckBox
	endwith
	with .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Null,"Child 1")
		.InsertItem(h,Null,"Child 2")
		.DefaultItem = h
		.ExpandItem(0) = .T.
		h = .AddItem("Root 2")
		.InsertItem(h,Null,"Child 1")
		.InsertItem(h,Null,"Child 2")
	endwith
	.EndUpdate
endwith
1311
How can I select multiple items in the drop down filter window, using check-boxes
with thisform.G2antt1
	.BeginUpdate
	.Chart.PaneWidth(1) = 0
	.LinesAtRoot = -1
	with .Columns.Add("Items")
		.DisplayFilterButton = .T.
		.DisplayFilterPattern = .F.
		.FilterList = 256
	endwith
	with .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Null,"Child 1")
		.InsertItem(h,Null,"Child 2")
		.DefaultItem = h
		.ExpandItem(0) = .T.
		h = .AddItem("Root 2")
		.InsertItem(h,Null,"Child 1")
		.InsertItem(h,Null,"Child 2")
	endwith
	.EndUpdate
endwith
1310
Is it possible to allow a single item being selected in the drop down filter window
with thisform.G2antt1
	.BeginUpdate
	.Chart.PaneWidth(1) = 0
	.LinesAtRoot = -1
	with .Columns.Add("Items")
		.DisplayFilterButton = .T.
		.DisplayFilterPattern = .F.
		.FilterList = 128
	endwith
	with .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Null,"Child 1")
		.InsertItem(h,Null,"Child 2")
		.DefaultItem = h
		.ExpandItem(0) = .T.
		h = .AddItem("Root 2")
		.InsertItem(h,Null,"Child 1")
		.InsertItem(h,Null,"Child 2")
	endwith
	.EndUpdate
endwith
1309
How can I display no (All) item in the drop down filter window
with thisform.G2antt1
	.BeginUpdate
	.Chart.PaneWidth(1) = 0
	.LinesAtRoot = -1
	.Object.Description(0) = ""
	with .Columns.Add("Items")
		.DisplayFilterButton = .T.
		.DisplayFilterPattern = .T.
		.FilterList = 2
	endwith
	with .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Null,"Child 1")
		.InsertItem(h,Null,"Child 2")
		.DefaultItem = h
		.ExpandItem(0) = .T.
		h = .AddItem("Root 2")
		.InsertItem(h,Null,"Child 1")
		.InsertItem(h,Null,"Child 2")
	endwith
	.EndUpdate
endwith
1308
Is it possible to display no items in the drop down filter window, so only the pattern is visible
with thisform.G2antt1
	.BeginUpdate
	.Chart.PaneWidth(1) = 0
	.LinesAtRoot = -1
	with .Columns.Add("Items")
		.DisplayFilterButton = .T.
		.DisplayFilterPattern = .T.
		.FilterList = 2
	endwith
	with .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Null,"Child 1")
		.InsertItem(h,Null,"Child 2")
		.DefaultItem = h
		.ExpandItem(0) = .T.
		h = .AddItem("Root 2")
		.InsertItem(h,Null,"Child 1")
		.InsertItem(h,Null,"Child 2")
	endwith
	.EndUpdate
endwith
1307
How can I specify the time-scale available when zoom-in/zoom-out or enlarging the chart
with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Task")
	with .Chart
		.FirstVisibleDate = {^2001-1-1}
		.PaneWidth(0) = 48
		.ShowNonworkingDates = .F.
		.LevelCount = 3
		.UnitScale = 4096
		.AllowResizeChart = 262 && ResizeChartEnum.exAllowChangeUnitScale Or ResizeChartEnum.exAllowResizeChartMiddle Or ResizeChartEnum.exAllowResizeChartHeader
		.Label(65536) = ""
		.Label(1048576) = ""
		.Label(16777216) = ""
	endwith
	with .Items
		.AddBar(.AddItem("Task A"),"Task",{^2001-1-2},{^2001-1-6},"K1")
		.AddBar(.AddItem("Task B"),"Task",{^2001-1-6},{^2001-1-10},"K1")
		.AddBar(.AddItem("Task C"),"Task",{^2001-1-10},{^2001-1-14},"K1")
		.AddBar(.AddItem(""),"",{^2001-1-8},{^2001-1-8},"Info","Click the <b>middle</b> mouse button and start dragging")
	endwith
	.EndUpdate
endwith
1306
How can I enable zoom-in/zoom-out or enlarging the chart, using the mouse middle button
with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Task")
	with .Chart
		.FirstVisibleDate = {^2001-1-1}
		.PaneWidth(0) = 48
		.ShowNonworkingDates = .F.
		.LevelCount = 3
		.UnitScale = 4096
		.AllowResizeChart = 262 && ResizeChartEnum.exAllowChangeUnitScale Or ResizeChartEnum.exAllowResizeChartMiddle Or ResizeChartEnum.exAllowResizeChartHeader
	endwith
	with .Items
		.AddBar(.AddItem("Task A"),"Task",{^2001-1-2},{^2001-1-6},"K1")
		.AddBar(.AddItem("Task B"),"Task",{^2001-1-6},{^2001-1-10},"K1")
		.AddBar(.AddItem("Task C"),"Task",{^2001-1-10},{^2001-1-14},"K1")
		.AddBar(.AddItem(""),"",{^2001-1-8},{^2001-1-8},"Info","Click the <b>middle</b> mouse button and start dragging")
	endwith
	.EndUpdate
endwith
1305
How can I enable zoom-in/zoom-out or enlarging, using the chart's header

with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Task")
	with .Chart
		.FirstVisibleDate = {^2001-1-1}
		.PaneWidth(0) = 48
		.ShowNonworkingDates = .F.
		.LevelCount = 3
		.UnitScale = 4096
		.AllowResizeChart = 258 && ResizeChartEnum.exAllowChangeUnitScale Or ResizeChartEnum.exAllowResizeChartHeader
	endwith
	with .Items
		.AddBar(.AddItem("Task A"),"Task",{^2001-1-2},{^2001-1-6},"K1")
		.AddBar(.AddItem("Task B"),"Task",{^2001-1-6},{^2001-1-10},"K1")
		.AddBar(.AddItem("Task C"),"Task",{^2001-1-10},{^2001-1-14},"K1")
	endwith
	.EndUpdate
endwith
1304
How can I enable resizing the chart, using the mouse middle button
with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Task")
	with .Chart
		.FirstVisibleDate = {^2001-1-1}
		.PaneWidth(0) = 48
		.ShowNonworkingDates = .F.
		.LevelCount = 3
		.UnitScale = 4096
		.AllowResizeChart = 6 && ResizeChartEnum.exAllowResizeChartMiddle Or ResizeChartEnum.exAllowResizeChartHeader
		.MaxUnitWidth = 128
		.MinUnitWidth = 8
	endwith
	with .Items
		.AddBar(.AddItem("Task A"),"Task",{^2001-1-2},{^2001-1-6},"K1")
		.AddBar(.AddItem("Task B"),"Task",{^2001-1-6},{^2001-1-10},"K1")
		.AddBar(.AddItem("Task C"),"Task",{^2001-1-10},{^2001-1-14},"K1")
		.AddBar(.AddItem(""),"",{^2001-1-8},{^2001-1-8},"Info","Click the <b>middle</b> mouse button and start dragging")
	endwith
	.EndUpdate
endwith
1303
How can I enable resizing the chart, using the chart's header
with thisform.G2antt1
	.BeginUpdate
	.Columns.Add("Task")
	with .Chart
		.FirstVisibleDate = {^2001-1-1}
		.PaneWidth(0) = 48
		.ShowNonworkingDates = .F.
		.LevelCount = 3
		.UnitScale = 4096
		.AllowResizeChart = 2
		.MaxUnitWidth = 128
		.MinUnitWidth = 8
	endwith
	with .Items
		.AddBar(.AddItem("Task A"),"Task",{^2001-1-2},{^2001-1-6},"K1")
		.AddBar(.AddItem("Task B"),"Task",{^2001-1-6},{^2001-1-10},"K1")
		.AddBar(.AddItem("Task C"),"Task",{^2001-1-10},{^2001-1-14},"K1")
	endwith
	.EndUpdate
endwith
1302
Is it possible to auto-numbering the children items but still keeps the position after filtering

with thisform.G2antt1
	.BeginUpdate
	.Chart.PaneWidth(1) = 0
	.LinesAtRoot = -1
	with .Columns.Add("Items")
		.DisplayFilterButton = .T.
		.FilterType = 240
		.Filter = "Child 2"
	endwith
	with .Columns.Add("Pos.1")
		.FormatColumn = "1 ropos ''"
		.Position = 0
		.Width = 32
		.AllowSizing = .F.
	endwith
	with .Columns.Add("Pos.2")
		.FormatColumn = "1 ropos ':'"
		.Position = 1
		.Width = 32
		.AllowSizing = .F.
	endwith
	with .Columns.Add("Pos.3")
		.FormatColumn = "1 ropos ':|A-Z'"
		.Position = 2
		.Width = 32
		.AllowSizing = .F.
	endwith
	with .Columns.Add("Pos.4")
		.FormatColumn = "1 ropos '|A-Z|'"
		.Position = 3
		.Width = 32
		.AllowSizing = .F.
	endwith
	with .Columns.Add("Pos.5")
		.FormatColumn = "'<font Tahoma;7>' + 1 ropos '-<b>||A-Z'"
		.Def(17) = 1
		.Position = 4
		.Width = 32
		.AllowSizing = .F.
	endwith
	with .Columns.Add("Pos.6")
		.FormatColumn = "'<b>'+ 1 ropos '</b>:<fgcolor=FF0000>|A-Z|'"
		.Def(17) = 1
		.Position = 5
		.Width = 48
		.AllowSizing = .F.
	endwith
	with .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Null,"Child 1")
		.InsertItem(h,Null,"Child 2")
		.DefaultItem = h
		.ExpandItem(0) = .T.
		h = .AddItem("Root 2")
		.InsertItem(h,Null,"Child 1")
		.InsertItem(h,Null,"Child 2")
	endwith
	.ApplyFilter
	.EndUpdate
endwith
1301
Is it possible to auto-numbering the children items too

with thisform.G2antt1
	.BeginUpdate
	.Chart.PaneWidth(1) = 0
	.LinesAtRoot = -1
	.Columns.Add("Items")
	with .Columns.Add("Pos.1")
		.FormatColumn = "1 rpos ''"
		.Position = 0
		.Width = 32
		.AllowSizing = .F.
	endwith
	with .Columns.Add("Pos.2")
		.FormatColumn = "1 rpos ':'"
		.Position = 1
		.Width = 32
		.AllowSizing = .F.
	endwith
	with .Columns.Add("Pos.3")
		.FormatColumn = "1 rpos ':|A-Z'"
		.Position = 2
		.Width = 32
		.AllowSizing = .F.
	endwith
	with .Columns.Add("Pos.4")
		.FormatColumn = "1 rpos '|A-Z|'"
		.Position = 3
		.Width = 32
		.AllowSizing = .F.
	endwith
	with .Columns.Add("Pos.5")
		.FormatColumn = "'<font Tahoma;7>' + 1 rpos '-<b>||A-Z'"
		.Def(17) = 1
		.Position = 4
		.Width = 32
		.AllowSizing = .F.
	endwith
	with .Columns.Add("Pos.6")
		.FormatColumn = "'<b>'+ 1 rpos '</b>:<fgcolor=FF0000>|A-Z|'"
		.Def(17) = 1
		.Position = 5
		.Width = 48
		.AllowSizing = .F.
	endwith
	with .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Null,"Child 1")
		.InsertItem(h,Null,"Child 2")
		.DefaultItem = h
		.ExpandItem(0) = .T.
		h = .AddItem("Root 2")
		.InsertItem(h,Null,"Child 1")
		.InsertItem(h,Null,"Child 2")
	endwith
	.EndUpdate
endwith